Select Code to Download

$ csv-check pl-1192449.csv
Checked pm-1192449.csv  with csv-check 1.8
...
WARN: multiple column lengths:
      3 lines with   32 fields
      1 line  with   33 fields

my $csv = Text::CSV->new ({ binary => 1, auto_diag => 1, strict => 1 }
+);

...
while (my $row = $csv->getline ($fh)) {
    #
    }

$ perl pm-1192449.pl
pm-1192449.csv
# CSV_XS ERROR: 2014 - ENF - Inconsistent number of fields @ rec 3 pos
+ 427 field 33