use Modern::Perl;

print for grep /\S/, <DATA>;

__DATA__
This is not a blank line.

This is not a blank line.

This is not a blank line.

This is not a blank line.

##</code><code>##

This is not a blank line.
This is not a blank line.
This is not a blank line.
This is not a blank line.