print unpack 'n', pack 'B*', $_ for qw[ 0010010010011001 1110101010100101 ];;
9369
60069

print unpack 'n', pack 'b*', $_ for qw[ 0010010010011001 1110101010100101 ];;
9369
22437

print unpack 'v', pack 'b*', $_ for qw[ 0010010010011001 1110101010100101 ];;
39204
42327

print unpack 'v', pack 'B*', $_ for qw[ 0010010010011001 1110101010100101 ];;
39204
42474