my $s = pack 'C5', qw[1 7 11 3 100];

say "$_: ", unpack '%C5', $s & tr/?+-/\0\xff/r for qw[
  --+-+
  ---++
  ?????
  -???+
];

##</code><code>##

--+-+: 122
---++: 122
?????: 0
-???+: 101