eliminar filas de un fichero

[jferrero]

Si solo quieres ver si existe o no esa cadena, en el fichero, te vale con salir inmediatamente del bucle, en caso de encontrarlo:

Código Perl:

my $lo_encontre;
 
while (<$FICHERO>) {
    if (/^RNC421;/) {
        $lo_encontre = 1;
        last;                        # salimos ¡YA!
    }
}
 
if ($lo_encontre) {
    say '¡Encontrado!';
}
 

Lo principal es la expresión regular, con el '^' puesto, para hacer la consulta lo más rápida posible.