Foro - Perl en Español

Estoy aprendiendo Perl y uno de los ejercicios que estoy haciendo es sustituir todas las palabras de un fichero (por ejemplo todas las "este"). Hago esto

#!perl

open (FICH, "+>Este.txt") || die "No se pudo abrir el archivo\n";;
while (my $linea = <FICH>)
{
my $cont1 = $linea =~ s/este/aquel/g;
print FICH $linea;
$cont2 = $cont2 + $cont1;
}
close (FICH);
print "Se han sustituido $cont2 veces la palabra este por aquel";

Pero el ...