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

##</code><code>##

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