Tableaux et regexp

Bonjour,

je suis débutant en Perl, mais il faut bien passer par là.

voici ce que je souhaite faire :

un tableau comme celui ci :

%tableau = ( "Expression_reguliere_1" => "valeur_1",
"Expression_reguliere_2" => "valeur_2",
"Expression_reguliere_3" => "valeur_3",
"Expression_reguliere_4" => "valeur_4",
"Expression_reguliere_5" => "valeur_5"
);

et ensuite, je veut tester chacunes de ces expression regulieres avec un foreach, mais je n'y arrive pas :

foreach $keys (%tableau) {
$theValue =
}

en fait, si l'expression reguliere 1 est vrai, alors $theValue = "valeur_1", si la deuxieme est vrai, alors $theValue = "valeur_2" ... etc...

NB : si plusieurs sont vrai, ce sera la derniere qui seras affectée.

Avez vous une solution pour faire cela ?

Merci a tous.

MAth