$s = 'AB';;
print $s & "\x7F\xFC";;
A@