if ($. =~ /\,\,\,\,\,/) {
   -delete line- $.
}