my $fh = DATA;
while (<$fh>) {
   chomp;
   next if /^#/ or $_ eq '';
   print $_;
}
__DATA__
Print this
and this
# but not this

Print me

# not
OK