j'ai déjà trouvé ça :

while ($ligne = <>)
{
if($ligne=~m/@art\[([^\]]+)\]/) #si je trouve @art[contenu] dans ma ligne.je traite le contenu
{
$inter=$1; #POUR les tests
$ligne="+$inter+ $ligne"; #POUR les tests
}
print ("$ligne");

}



Je trouve donc correctement les ligfnes ou mon occurence est présente mais le problème est qu'il y a des fois ou mon occurence est présente plusieurs fois dans la ligne . . . et avec ce script je trouve que la première occurence . . .
Voilà, j'attend xD une bonne âme ki m'aide . .

Zep3k!GnO
-->kurtis jackson:"Dans la vie tu as besoin de 3 choses : le fitness, l'aérobic et moi."