open my $in,  '<',  $file      or die "Can't read old file: $!"
        open my $out, '>', "$file.new" or die "Can't write new file: $!";
        my $content = do { local $/; <$in> }; # slurp!
            # do your magic here
        print $out $content;