#!perl -p
s!(0*)(1(??{'.'x length$}))((??{'.'x($n=-1+oct"0b$")}))!@f=$m=1;$a=2;@f=($a,@f)until($a+=$f[1])>($l=2**$n+oct"0b$3");$m=(1^$l<$_).$m,$l%=$_ for@f;$m!ge