##
$ cat 1139428.pl
#! perl
use strict;
use warnings;
use Text::CSV_XS 'csv';
my $data = csv( in => '1139428.dat' );
foreach my $row ( @{ $data } ) {
foreach my $field ( @{ $row } ) {
print "$field\n";
}
}
__END__
$
####
$ perl 1139428.pl
qweqwe
rtyr tyr
'asdasd
fghfghfgh
foo
bar
baz
qux
$