Untitled

selma @ agm -> /tmp/pruebas $ ls
sustituir.pl  texto
selma @ agm -> /tmp/pruebas $ cat texto
Estoy en mi casa
Uso Linux
No me gusta Windows
selma @ agm -> /tmp/pruebas $ cat sustituir.pl
#!/usr/bin/perl
use strict;

open(ARCHIVO, '+<texto');
while(<ARCHIVO>){
        $_ =~ s/casa/apartamento/g;
}
close(ARCHIVO);
selma @ agm -> /tmp/pruebas $ perl sustituir.pl
selma @ agm -> /tmp/pruebas $ cat texto
Estoy en mi casa
Uso Linux
No me gusta Windows
selma @ agm -> /tmp/pruebas $