This seems to work but it still needs something extra besides a regex :(

my $str='one "two three" four five "six seven eight" nine';
my @list=grep defined, $str=~/"([^"]*)"|(\S+)/g;
print join "\n", @list;
[download]