use File::Replace;
 
my $repl = File::Replace->new($filename);
my $infh = $repl->in_fh;
while (my $line = <$infh>) {
    chomp($line);
    # modify $line here
    print {$repl->out_fh} $line, "\n";
}
$repl->finish;