$ cat 1139428.dat
qweqwe,rtyr tyr,'asdasd,fghfghfgh
foo,bar,baz,qux
$ 

##</code><code>##

$ 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__

$

##</code><code>##

$ perl 1139428.pl
qweqwe
rtyr tyr
'asdasd
fghfghfgh
foo
bar
baz
qux
$