my @word = do {
    my $i=0;
    grep $i++&1, m/ (")? ((?(1) [^"]* | \S+)) \1\s* /xg
};