$text =~ s/\R/\r\n/g;