curl -s ftp://ftp.internic.net/domain/root.zone.gz | gunzip -c | grep " NS " | awk '{print $1}' | uniq | sort | egrep '^[^\.]+\.' | xargs -i host _.{} 2>/dev/null | perl -n -e '
if (/^(?:_\.)?(?:(\w+)|\S+)\s.*(?:\s(A)ddress\s+([\d\.]+)|(mail)\s+.*?(\S+)|(nickname)\s.*?(\S+))$/i) {
   print "$1 $2$4$6 $3$5$7";
   
   if ($4) {
      if (`host $5 2>/dev/null` =~ /([\d\.]+)$/im) { print " ( $1 )"; }
      else { print " (no ip)"; }
      }
   
   print "\n";
   }
'