in reply to Re^2: Regex to check for beginning character
in thread Regex to check for beginning character

That's not simplification. You're trying to win style points, but that's not how it's done (use parens only when neccessary) :) 
for(@lines){
    print "yahoo!" if 0 == index $_, '#';
}

[download]

In Section Seekers of Perl Wisdom