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