Text::CSV_XS http://search.cpan.org/author/JWIED/Text-CSV_XS-0.23/CSV_XS.pm

my $csv = Text::CSV_XS->new( );
[download]

I have parsed and output nastier data than you have described here with this module. All escaping handled by the module.

--
Clayton aka "Tex"