$s = unpack 'v', 'AB';;
print pack 'v', $s & 0xFC7F;;
A@