perl -i.bak -nle"while ($empty) { --$empty; print '' } if (length()) { print } else { ++$empty }" filename

##</code><code>##

foo CR LF
bar CR LF
CR LF
CR LF

##</code><code>##

foo CR LF
bar CR LF