Select Code to Download

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