[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 :)