1N/A;
# @words = &shellwords($line); 1N/A;
# @words = &shellwords(@lines); 1N/A;
# @words = &shellwords; # defaults to $_ (and clobbers it) 1N/A local($_) =
join(
'', @_)
if @_;
1N/A use re 'taint';
# leave strings tainted 1N/A if (s/^
"(([^"\\]|\\.)*)
"//) { 1N/A die "Unmatched double quote: $_\n";
1N/A elsif (s/^
'(([^'\\]|\\.)*)
'//) { 1N/A die "Unmatched single quote: $_\n";
1N/A elsif (s/^\\(.)//) {
1N/A elsif (s/^([^\s\\
'"]+)//) {