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

$