my @ip = map { hex($_) } map { /(..)/g } unpack("H*",$pip);

print join '.',@ip;