Hmmm... While you're technically correct, I would view anyone who wrote code like that to be... well, psychotic. ;-)

At any rate, here's the fix. Replace:

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

with

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