s/\r//g;

##</code><code>##

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