Entiendo, yo probaría con algo así...
Código:
open (FICHERO,"login.txt");
my @lineas=<FICHERO>;
foreach my $linea (@lineas)
{
my ($nombre,$password) = split(/\|/,$linea);
chop($password);
#YA TENEMOS LOQ UE NECESITAS, AHORA A VALIDAR LA INFO
if ($FORM{'usuario'} eq $nombre){
if ($FORM{'password'} eq $password){
#Se logeó correctamente !!!!
}
}
}
Se entiende ? primero cargas el fichero en un array y luego por cada elemento vas separándolo y analizando si es el correcto...
Espero que te sirva
Saludos
PD: El chop es para eliminar el salto de línea...