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