perl -ne "print unless /,,,,,/" infile > outfile