@D = map { unpack('C', pack('b*', $_)) } unpack('b1b3b4', 162);