use Text::CSV;

my $csv = Text::CSV->new or die Text::CSV->error_diag;

while( my $row = $csv->getline(\*DATA) ) {
  tr/,//d for @$row;
  print scalar @$row, " columns: (", join( ') (', @$row ), ")\n";
}

__DATA__
column1,column2,column3,column4,column5,column6,column7
data,data,"lname, fname mi","lname, fname mi","lname fname mi",data,data
data,data,"lname, fname mi","lname, fname mi",,data,data
data,data,"lname, fname mi",,,data,data
data,data,,,,data,data