Select Code to Download

use strict;
use warnings;
...
    local $_ = shift || $_; # string to match against
    return ($_ !~ zero_bit_regexp($N)) ? -1 : $-[$#-]*8 - $#- + 1
}

1:  0
2:  5
...
15:  119
16:  135
17:  -1