$x = "\x2D\x05";
print unpack"n",$x;