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