my $tmpname = "$filename.$$.tmp";
my $changes = 0;
open my $src, '<', $filename;
open my $dest, '>', $tmpname;
while (readline $src) {
my $tmpname = "$filename.$$.tmp";
my $changes = 0;
open my $src, '<', $filename;
open my $dest, '>', $tmpname;
while (readline $src) {