use Text::CSV_XS;
my $csv = Text::CSV->new;

# reading
$csv->parse(<STDIN>);
my @fields = $csv->fields;

#or writing:

$csv->combine(@fields);
print $csv->string;