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