in reply to accessing bits in a file
$ perl -le'my $buf = "\x47\x69\x01"; print unpack "B*", substr( $buf, +-2 ) & "\x1f\xff"' 0000100100000001 [download]