¿Cómo puedo eliminar las últimas N líneas de un archivo?
¿Alguien puede dar algunas pistas sobre cómo eliminar las últimas n líneas de un archivo en Perl? Tengo un archivo muy grande de alrededor de 400 MB y quiero eliminar unas 125,000 últimas líneas.