for(@lines){
    print "yahoo!" if 0 == index $_, '#';
}