my $byte = 129;                          # 0b10000001 = 129
my $most_significant_5  = $byte >> 3;    # 0b10000    =  16
my $least_significant_3 = $byte & 0x7;   # 0b     001 =   1