reemplazar cadena en un arreglo... como ?

[charlygarcia]

hola a todos

una ayudita con este problema por favor:
Yo abro un archivo de tipo texto (archivo.txt) desde perl y lo muestro en pantalla de la siguiente manera:

$abrir="archivo.txt";
open(abrir);
@elementos=<abrir>;
close(abrir);
foreach(@elementos)
{
print($_);
}

Todo va muy bien hasta ahora...

Pero yo necesito que a la hora de escribir en pantalla, tomar a $_ y buscar las ocurrencias de la cadena XXXX y cambiarlas por YYYY, para cada linea del archivo.

Que no se cambie en el archivo, si no en la visualizacion de los datos en la pantalla, me dicen que se podria hacer por medio de expresiones regulares, quien me puede ayudar ?

Gracias por la colaboración

[jferrero]

Código:

$abrir="archivo.txt";
open(abrir);
@elementos=<abrir>;
close(abrir);
foreach (@elementos) {
    ($linea = $_) =~ s/xxxx/yyyy/g;
    print $linea;
}

Es necesario el uso de una variable dentro del bucle ($linea) porque sino estaríamos modificando el contenido de @elementos. Si eso no nos importara, entonces podríamos dejarlo simplemente en

Código:

foreach (@elementos) {
    s/xxxx/yyyy/g;
    print;
}

[charlygarcia]

no me canso de agradecerte lo mucho que me has ayudado

exitos...

Voy a probarlo...