#!/usr/bin/perl -ne print if /\S/ and not /^#/

blah
blah
blah

##</code><code>##

blah
blah
blah