$string =~ s/^\s*?\n$/\n/mg;

##</code><code>##

$string =~ s/^\s*?\n/\n/mg;