In description of unpack there is following method to count number of bits:

# Count the bits in a chunk of memory (e.g. a select vector)
unpack( '%32b*', $mask );
[download]

Update: sorry, I misunderstood question. If you have string of bits with one bit set, then you could try just $bitstring =~ /1(0*)$/; $originalvalue = length($1)+1;