$text =~ tr/\r//d;