$text =~ s/\r/\n/gs;

##</code><code>##

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

##</code><code>##

$text =~ s/(\n\s*){2}/<\/p>\n<p>/;