如何使用正则表达式解析Perl中引用的CSV？

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 don't.I'm having some issues with parsing CSV data wi