$stoval = "B" ^. 0x80;  # $stoval = [s28]  -  Expecting [194]
$stohex = "0x" . (unpack 'H16', "s28");  # $stohex = [0x733238]  -  Expecting [0xc2]