$copy_old =~ s/\n/\r\n/;