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

##</code><code>##

    split(",")

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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