#!perl -p @a=/\w+/g;s/:(?=:)/':0'x(8-@a)/e;/:/&&s/\w+/sprintf"%04s",$&/ge;$_=join('.',reverse/:/?/\w/g:/\w+/g).(/:/?".ip6":".in-addr").".arpa "