[PERL] regexp

Bonjour,

Je souhaite tester des lignes dans un fichier. Je place le tout dans un tableau avant de faire le teste.
exemple de ligne dans mon fichier :
toto

Je veux que : s'il y a toto, return vrai
s'il y a toto+ quelque chose après, return faux

La condition dans le programme est :

for ( 0 .. $#tableau ) {
until ($tableau[$_] =~ /toto/ ) {
print " ERREUR \n";
exit;
}
}

Ceci ne marche pas, car si j'ai totoi, il n'y a pas d'erreur.
J'ai essayé avec \ à la fin mais ca ne fonctionne pas.

Pouvez vous m'aider?