$str =~ s/\r//g;