perl -p0e 's/\n^\s*$//mg' input.txt

##</code><code>##

perl -ne 'print if /\S/' input.txt