# perl
use strict;
use Text::ParseWords;
use Data::Dumper;

my $str = '"word1",word2,"word3,word4"';
my @words = quotewords(',', 0, $str);
print Dumper \@words;