$ perl -le '
> vec($str, $_, 1) = 1 for 1, 8, 9;
> $high = unpack q{xc}, $str;
> $low = unpack q{c}, $str;
> print qq{$high - $low};'
3 - 2
$