Help for this page
if ($line =~ m/".?".?".?"/g)
if ($line =~ m/"[^\,]?"[^\,]?"[^\,]?"/g)
if ($line =~ m/"(ANY # OF NON-COMMAS)"(ANY # OF NON-COMMAS)"(ANY # OF +NON-COMMAS)"/g)