while (<>) {
    last unless (/^#/);
}
procline;
while (<>) {
    procline;
}
continue {
    if (eof) {
        while (<>) {
            last unless (/^#/);
        }
        procline;
    }
}