join '.', unpack "C*", pack "H*", $ip;