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

##</code><code>##

$string =~ s/\r(?=\n)//g;