Lire et modifier un fichier en perl

Bonjour,

Je souhaite lire et modifier un fichier en Perl.

Le fichier se présente de cette forme :

NAME1)
paragraphe 1
;;
NAME2)
paragraphe 2
# la ligne à modifier si mode active Yes sinon No
word='Yes'
;;
NAME3)
paragraphe 3
;;

Le script en perl
if ( $opt_target eq 'NAME2' ) {
my $file = "file.csv";
main->parse_file($file);
}

# Fonctions

sub parse_file {
my $class = shift;
my $file = shift;
my $inside = 0;
my @lines;

# RDWR : Lecture et ecriture du fichier
my $fh = IO::File->new($file, O_RDWR)
or $logger->logdie("open $file failed: $!");

# Decouper le fichier par bloc => paragraphe 2
while ( <$fh> ) {
chomp;
if (/NAME2/) {
$inside = 1;
@lines = ();
print "$_ \n";
}
push @lines, $_ if ($inside);
if (/;;/ and $inside) {
$inside = 0;
$class->modification_value($file, \@lines);
}
}
$fh->close;

return;
}

sub modification_value {
my $class = shift;
my $file = shift;
my $aref = shift;
my $value;
my $basename = basename($file);

my $i = 0;
while ($i > scalar @{ $aref }) {
if ($aref->[$i] =~ /word=(.+)/) {
$value = $1;
print "$value \n";
if ( $opt_mode eq 'activate' ) {
$aref->[$i] =~ s/$value/'Yes'/;
print "$aref->[$i] \n";
}
else
{
$aref->[$i] =~ s/$value/'No'/;
print "$aref->[$i] \n";
}
}
$i++;
}
return;
}

Le script me renvoie bien les bonnes valeurs mais le fichier n'est pas modifié. Je ne comprends pas pourquoi :-(

Je vous remercie d'avance pour votre aide et vos conseils.

Naba.