use Text::CSV_XS ();

my $c = Text::CSV_XS->new( { binary => 1 } );
$c->parse( qq{"abc","def\nghi","jkl"\n} );
print ">>", join( "<<\n>>", $c->fields ), "<<\n";