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