#!/usr/bin/env perl 
use strict;
use warnings;
use Text::CSV_XS;

my $csv = Text::CSV_XS->new ({
        quote_char => '"',
        escape_char => '\\'
});

open my $fh, "<:encoding(utf8)", "foo.csv" or die "foo.csv: $!";
while (my $row = $csv->getline ($fh)) {
        print (join "\n", @$row, "");
}
close $fh;