use strict;
use warnings;

use Text::xSV;

my $str = <<FILE;
a,2,"3
a",4,5,6
b,2,3,4,5,6
FILE

open my $inFile, '<', \$str;

my $xsv = Text::xSV->new (fh => $inFile);

$xsv->bind_fields (qw(1 2 3 4 5 6));

while (my @parts = $xsv->get_row ()) {
    s!\n!!g for @parts;
    print "@parts\n";
}

close $inFile;

##</code><code>##

a 2 3a 4 5 6
b 2 3 4 5 6