fisher% perl -e 'my $byte=129; my $first5=$byte&0xf8; printf "%08b, %d\n", $byte, $first5;'
10000001, 128