Bonjour ici !

J'aurais aimé savoir s'il était possible en Perl de construire des expressions régulières de façon générique. Je m'explique :

J'ai par exemple la phrase "Bonjour le monde. Phrase2. Phrase3", que je split par .
puis je split à nouveau avec

my @tab = split(/\s+/, $phrase);

J'ai donc les mots de la phrase "Bonjour le monde" dans le tableau tab.

Je voulais savoir si on pouvait construire le regexp m/.{0,30?}?$tab[0].{0,30?}?$tab[1].{0,30?}?$tab[2]...{0,30?}?$tab[TAILLE_DU_TABLEAU]./ sachant que je compte faire une boucle pour passer à la phrase suivante c'est à dire phrase2, etc...

Voilà, je suis pas très clair mais si quelqu'un pouvait m'éclairer. Configuration: Linux
Firefox 2.0.0.12