open my $in,  '<:raw', $in_filename  or die ...;
open my $out, '>:raw', $out_filename or die ...;
while (<$in>){
    s/\x0D\x0A\z/\x0A/;
    print $out $_;
}
close $in  or die ..;
close $out or die ... ;