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