use v5.14;
use Text::ParseWords;
my $line = q{"word1",word2,"word3,word4"};
my @words = quotewords( ",", 0, $line );

foreach( @words ){
        say $_;
}