Esto lo saque de un CGI para postales que hice hace muuuuuucho tiempo:
$palabra="Una palabra";
$reemplazar="Palabra a reemplazar";
open(FILE1,"< archivo.txt");
@uno=<FILE1>;
close FILE1;
for($i=0;$i<@uno;++$i)
{
$uno[$i]=~ s/\$palabra/$reemplazar/;
}
open(FILE1,"> archivo.txt");
print FILE1 @uno;
close FILE1;
Y eso es to to to todo amigos.
<font color="GRAY" size="-2" face="Arial">[B]
El poder no es tenerlo todo
El poder es unirse con el mundo invisible
El ser a uno con los espíritus
Y nosotros uno con ellos,
Nuestro corazón es el corazón de ellos
Desnudo ante el río de la vida