Comme je connais pas PERL, je te prospose quelques solutions :
a - Existe t'il une façon d'affecter à une variable ce que la REGEXP aura reconnu ?? Si oui, tu choppes tout ce qu'il y a après ton SRC (entre les deux " )(genre '/scr="([^"]+)"/') et tu affectes cela à une variable.
b - Tu peux peut-être te débrouiller en remplaçant la totalité de ta variale par une référence arrière (morceau de REGEXP).
-> $var = ~s/'^..blabla....scr="([^"]+)"..blabla..$'/'//1'/; le //1 représente ta référence arrière.
Maintenant, commme je te l'ai déjà dit, je connais pas le PERL et j'ai pas de moyen de vérifier ce que je te raconte.
[edtdd]--Message édité par fly lm--[/edtdd]