Only that it took 1/2 an hour first asking in the CB if anyone knew of a module to do the job, then fussing with the regex to get the correct result! :(

Now at least I guess there is something to Super search for.

Update: and the handling of \ by quotewords is 'interesting'. Consider:

use strict;
use warnings;
use Text::ParseWords;

while (<DATA>) {
    chomp;
    
    my @fields = m/\s* ("(?:(?!(?<!\\)").)*" | '(?:(?!(?<!\\)').)*' | 
+\S+)/gx;
    my @words = quotewords('\\s+', 0, $_);
        
    print ">", join ('<, >', @fields), "<\n";
    print ">", join ('<, >', @words), "<\n\n";
}

__DATA__
two words "and a \"quoted\" string"
two words 'and a \'quoted\' string'
[download]

Prints:

>two<, >words<, >"and a \"quoted\" string"<
>two<, >words<, >and a "quoted" string<

>two<, >words<, >'and a \'quoted\' string'<
>two<, >words<, >and a \'quoted\' string<
[download]

Stripping the outer quotes by quotewords however may be a bonus, or not.