Expression reguliere GREP

Bonjour,

J'ai une variable $var. (par exemple $var = 12345) et un tableau (@fichiers) qui contient plusieurs fichiers.
Je souhaite stocker dans @out tous les fichiers (@fichiers) qui commencent par les 5 premières lettres de $var.

Code:

---

@out = grep .... , @fichiers ;

---

j'ai essayé plusieurs combinaisons avec grep, mais je n'ai jamais le bon résultat.

Merci de votre aide

Code:

---

1 2	my $varCut = quotemeta( substr $var, 0, 5 ); @out = grep { m/^$varCut/ } @fichiers;

---

--
Jedaï