Tu peux essayer avec ça:
perl -ne'print if (/(?:\t(?:777|888|999))++\t\S/ or !/\t(?:777|888|999)(?:\t|$)/)' file

la première condition vérifie qu'il y a au moins une séquence de 777,888,999...