LINE: while (<STDIN>) {
    next LINE if /^#/;  # skip comments
    next line if /^$/;  # skip blank lines
    ...
} continue {
    $count++;
}