use Text::ParseWords;
my @words = shellwords($_);