if ($line =~ m/".?".?".?"/g)

##</code><code>##

if ($line =~ m/"[^\,]?"[^\,]?"[^\,]?"/g)

##</code><code>##

if ($line =~ m/"(ANY # OF NON-COMMAS)"(ANY # OF NON-COMMAS)"(ANY # OF NON-COMMAS)"/g)