How can I parse quoted CSV in Perl with a regex?

Question

I\'m having some issues with parsing CSV data with quotes. My main problem is with quotes within a field. In the following example lines 1 - 4 work correctly but 5,6 and 7 d

Answer 1

This works like charm

line is assumed to be comma separated with embeded ,

my @columns = Text::ParseWords::parse_line(',', 0, $line);