Prueba con lo siguiente: Si tienes que eliminar un número de líneas **exactas**: cat mi_fichero | REPETICIONES=3 perl -0777 -ne '$R=$ENV{REPETICIONES}-1;s/^(.+)\R(\1(?:\R|\z)){$R}(\1(?:\R|\z))*/defined $3?$&:""/gme;print' Para cambiar las repeticiones, puedes cambiar simplemente la variable que precede al comando en perl. Si tienes que eliminar un número de líneas **mínimo** (por ejemplo: *3 o más*): cat mi_fichero | REPETICIONES=3 perl -0777 -ne '$R=$ENV{REPETICIONES}-1;s/^(.*)(\R)(?:\1(?:\R|\z)){2,}//gm;print'