$text =~ s/R/\r\n/g;

##</code><code>##

$s =~ s/(?:\x0D\x0A?|\x0A)/\x0D\x0A/sg;