This is the revision history for _getarg_perl_array in <freenode.net:#regex>

factoid_idsubjectcopulapredicateauthornamespace
14910 _getarg_perl_array is `eval use Text::ParseWords; my @words = shellwords(`quote d `arg!!); \@words!
["-s","##NULL source","source"]
simcop2387
14905 _getarg_perl_array is `eval use Text::ParseWords; my @words = shellwords(`quote d `arg!!); \@words!
Not Available
simcop2387
12640 _getarg_perl_array is `eval use Text::Balanced qw/extract_multiple extract_delimited/; $in=`quote d `arg~~; @a=(); push @a, $_ while ($_=extract_multiple($in, [sub {extract_delimited($_[0], "'\"") =`eval chr 126~ s/^['"]|['"]$//gr =`eval chr 126~ s/\\//gr;}, qr/\S+/], undef, 1)); \@a~
Not Available
simcop2387