LINE: while ( <STDIN> ) {
    unless( /^#/  # its a comment
        or  /^$/  # or blank line
    ) {
        ... ## do whatever
    }
    $count++; ## and count them all
}