Select Code to Download

use strict;
use warnings;
...
my @words = map { $_ || () } split /"(\\"|.*?)"|\s+/, $str;

print Dumper(\@words);

$VAR1 = [
          'one',
...
          'six seven eight',
          'nine'
        ];