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

##</code><code>##

$entry =~ tr/\r/ /;