Extraire un nombre inconnu de variable d'une regex

Bonsoir à tous.

Je me viens de me mettre au Perl et je bloque là-dessus :

Code:

---

m/Debut (?:(\d+)\.\s)*Fin/

---

Ce regex récupère des lignes comme :

Début Fin
Début 1. 2. 3. 4. Fin
Debut 1. Fin
etc

Le problème c'est que je ne sais pas comment récupérer les valeurs entre parenthèses avec $1, $2 etc dans ce cas puisque le pattern du milieu peut se répéter un nombre de fois indéfini.
Vous avez une idée de la façon dont je peux faire ça ?

Code:

---

1 2	m/Debut (\d+\.\s)*Fin/; my @nums = split m/\.\s/, $1;

---

Ou :

Code:

---

1 2 3 4 5 6 7

my @nums; if($str =~ m/Debut /g) { while($str =~ m/(\d+)\.\s)/g) { push @nums, $1 } @nums = () if $str !~ m/Fin/; }

---

--
Jedaï

J'avais pas pensé au split, ça fonctionne très bien avec ça. Merci !