Inside a regular expression (given the section we're in):

$x = '# a comment';
print "$&\n" if $x =~ m/^\#.* # A comment!
                         /x;
[download]

(You have to backwhack the #, or m//x will consider it a comment.

Originally posted as a Categorized Answer.