# Count POD
            if ($line =~ /^=/) {
                pod++;

##</code><code>##

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