in reply to matching two or more characters and substituting

my @tokens=split(/[,"]+/,$string);#split using comma&quotes
#                 ^  ^^

[download]
Better: Text::CSV

In Section Seekers of Perl Wisdom