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'