note joeface <p> Look at the <a href="http://search.cpan.org/~mjd/Tie-File-0.96/lib/Tie/File.pm">Tie::File</a> module. It allows you to edit a file in-place as if it were an array. </p> <p> This example replaces any line containing $idtag with a line containing $replacement. </p> <code> use Tie::File; my $file = 'filename'; my @tied_file; my $idtag = 'idTag'; my $replacement = 'replacement line'; # Create the array @tied_file from $file tie(@tied_file, 'Tie::File', $file); # Preserve the index so we can work directly on lines of @tied_file foreach my $i (0 .. $#tied_file) { if ($tied_file[$i] =~ /$idtag/) { # Do something to this line of @tied_file $tied_file[$i] = $replacement; } } untie(@tied_file); </code> 489913 489913