use strict;

open(my $reader, '<', 'file.to.read');
open(my $writer, '>', 'file.to.write); # will be truncated

while(<$reader>)
{
  # do desired mangling here
  print $writer "$_";
}