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