All pastes #256300 Raw Edit

Anonymous

public text v1 · immutable
#256300 ·published 2006-11-24 00:51 UTC
rendered paste body
#!/usr/bin/perl
use strict;

open(ARCHIVO, '+<prueba.txt');

while(<ARCHIVO>){
        if(/hola/){
        print "$_\n";
        $_ =~ s/hola/cha000/g;
        print "$_";
        }
}
close(ARCHIVO);