expressoes regulares (PERL)

[alpbs]

fala ai rapaziada
seguinte
tava querendo substituir uma palavra dentro de um arquivo texto em perl e fiz o seguinte

open(FILE, "+>>texto.txt");
while($arq=<FILE>){
if( $arq =~ /LAPIS/){
$arq=~ s/LAPIS/CANETA/x;
print(FILE "$arq");
}
}
so que nao substituiu a palavra
onde eu to errando ? o q fazer ? já to quase apelando e usando sed

vlw a todos
[]´s

[belvio]

Caro Alpbs tb tenho o mesmo problema que vc estou estudando Perl a pouco tempo e contorno este problema fazendo as alterações necessarias copiando em outro arquivo arquivo resolve parcialmente o problema mas se vc for trabalhar com arquivos grandes por exemplo um arquivo de 2GB vc pode ter problemas de espaço. Se vc já tiver descoberto com contornar isto problema poste aki blz.