s#"([^"]*)"# my $i= $1; $i =~ tr/ /"/ #ge;
my @list= grep { tr/"/ / || 1 } split / +/;