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'

##</code><code>##

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

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