$text =~ s/\r/\n/gs;