$s = pack 'B8', '10000000';;
print length $s;;
1
print ord( $s );;
128

$s = pack 'B8', '11000000';;
print length $s;;
1
print ord( $s );;
192