my $buf = "\x47\x69\x01"; print substr(unpack("B*", $buf), 11, 13); # 0100100000001 [download]
In reply to Re: accessing bits in a file by almut in thread accessing bits in a file by andreyb051