$txt =~ s/\n{3,}/\n\n/g;

##</code><code>##

$txt =~ s/\r|\n//g;