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;
}