Select Code to Download

perl -lne '$n=tr/,//;$h{$n}++;END{print "$h{$_} rows have $_ commas" f
+or (keys %h)}' some_file.csv

    split(",")

    split( /,/, $_, -1 );

   @array = split( /,/, "field1,field2,,field4,field5,,," );

   ( 'field1', 'field2', undef, 'field4', 'field5' );