open my $WRITEFILE, '>', $outfile or die "Can not open new replacement file: $outfile. $!";