$str =~ s/(\r\n|\n\r|\r|\n)/\r\n/sg;