[Perl] Sustitucion

[Adrian Galindo]

Hola mundo.

Ando batallando con el siguiente problema.
Tengo *muchos* archivos con una l=EDnea as=ED:

ImagenOn[i].src =3D "img/recurso" + i +"b.gif";

y necesito que quede as=ED (agregarle el {img}):

ImagenOn[i].src =3D "{img}img/recurso" + i +"b.gif";

Como son muchos archivos, estoy intentando hacer algo asi:

find . -type f -name "*.htm" -exec perl -ne 's|.src =3D "img/|.src =3D=20
"{img}img|' {} \;


Mi problema es que no est=E1 cumpli=E9ndose la primera condici=F3n (seg=FA=
n yo)=20
porque no hace la sustituci=F3n.
=BFLe alcanzan a ver donde la estoy cajeteando?

Saludos.
Adri=E1n.