# Count POD
            if ($line =~ /^=[a-z]/) {
                $pod++;