This can be used to find all zone files that contain authoritative nameservers - e.g.
perl -ne 'print if /^([\w.]+.)\s+.+\sNS\s.+\1/' /var/named/*.db | awk '{print $1}' | sort | uniq