Problème Expression Regulière

Bonjour à tous!

J'ai un petit problème avec une expression régulière. Lorsque j'exécute le code suivant, il me renvoi l'erreur "Use of uninitialized value $_ in pattern match etc...." au niveau du while.

Pourtant j'évite au maximum les variables automatiques, ma variable $barcode est définie il me semble, et à quel endroit utilise-t-il $_ ?

print "# Quel code-barre a ajouter (3 caracteres alphanumeriques) ?\n";
print "# Code-Barre: ";
my $barcode=<stdin>;
chomp $barcode;
while ($barcode != /[a-z0-9]{3}/ig){
 print "# Le code-barre doit etre compose de 3 caracteres alphanumeriques!\n";
 print "# Nouveau code-barre: ";
 $barcode=<stdin>;
 chomp $barcode;
}

Bref je dois avouer que malgré mes recherches je ne vois pas ce qui n'est pas défini. Quelqu'un a une idée?

Merci beaucoup!