What about leading whitespace? Assuming you want to return the items starting with a # then :-

@lines = (' #',
          'nope',
          '# yep',
          'oops #');


foreach(@lines) {
    print "yahoo! $_\n" if (/^\s*#/);
}
[download]

Just a thought
UnderMine