in reply to skipping lines

while(<>){
    next if /^#/;
}

[download]

In Section Seekers of Perl Wisdom