unpack( "H*", pack( "B*", $bin ) )