$ip = "127.0.0.1";
print join(".",unpack("H2H2H2H2",pack("c4",split /\./,$ip)));