sub ip2n{ unpack 'V', pack 'C4', split '\.', $_[ 0 ] }