$ csv-check pl-1192449.csv
Checked pm-1192449.csv  with csv-check 1.8
using Text::CSV_XS 1.30 with perl 5.26.0 and Unicode 9.0.0
OK: rows: 4, columns: (32, 33)
    sep = <,>, quo = <">, bin = <0>, eol = <"\n">
WARN: multiple column lengths:
      3 lines with   32 fields
      1 line  with   33 fields

##</code><code>##

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

my $fn = "pm-1192449.csv";
-d "sandbox" and substr $fn, 0, 0, "sandbox/";
say $fn;
open my $fh, "<:encoding(utf-8)", $fn or die "$fn: $!\n";

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

##</code><code>##

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