@lines = grep { $_ !~ /^\s*\n?\r?$/ } @lines

##</code><code>##

@lines = grep { $_ != /^\s*\n?\r?$/ } @lines