[Perl] Cambiando un string en varios archivos...

[omar@mydomain.com]

>> Lista,
>
>> Como le puedo hacer para cambiar un string en todos los archivos que
>> tengo en  un directorio??...
>
>> Saludos,
>> Luis




 va una idea:

#!/usr/bin/perl

open(INFILE,"<lista");

while (<INFILE>)
{
 ($a, $b) = split(/\|/,$_);

open(zz,"<$a");
open(OUT,">>subdir/$a");
while (<zz>)
{

s/PERRO/GATO/g;

print OUT $_;
}
close zz;
close OUT;

}
close INFILE;

--------

donde lista es el archivo que tiene por contenido el nombre de todos tus
archivos, y donde dice PERRO es la cadena que quieres cambiar y GATO es la
cadena que lo va a reemplazar.