$in{$_} =~ s/([\r\n]){2,}/<\/p><p>/g;

##</code><code>##

$in{$_} =~ s/(?!^<\/p><p>)([\r\n]){2,}/\n<\/p><p>\n/g;