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:
Ver originalmy $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.