$hex= 0xb400189;
print join ".", map {scalar reverse}(reverse sprintf "%x", $hex) =~/(.
+.?)/g;
__OUTPUT__
89.01.40.b
[download]

--

flounder