sub decode_d2b { return unpack("s", pack("s", hex($_[0].$_[1]))) / 256; }