I think you've got your nybble order mixed up...

print join(".",unpack("H2H2H2H2",pack("c4",split /\./,$ip)));
[download]

-Blake