[Perl] Question sur le test if

Bonjour,

J'aimerai savoir si il existe une syntaxe équivalente a egrep du style "titi|toto" pour la condition OR a l'intérieur d'un test

Pour expliquer ma demande, passons au script

Version actuelle :

if (($variable eq "stringA") | ($variable eq "stringB")) {
  print "String match\n";
}

J'aimerai regrouper le test en un genre de

if ($variable eq "stringA|strigB" {
  print "String match\n";
}

Évidemment, cette syntaxe ne fonctionne pas,
Mais j'aimerai savoir si il y a quelque chose d'approchant afin de raccourcir un peu le code ...

Merci d'avance :)
--
Si vous avez votre réponse, pensez à spécifier : [Résolu]

Configuration: HTPC : EPIA M10000 | XP-SP2 sur CompactFlash 2Go | Alim PicoATX
Portable : MacBook Unibody & EEEPC 701 [Xubuntu]