perl -ne 'print if !/^#/ and /foo/' /tmp/foo.txt

##</code><code>##

perl -ne 'print if /^[^#]*foo/' /tmp/foo.txt