#!perl -p
s!(0*)(1(??{'.'x length$\x0e}))((??{'.'x($n=-1+oct"0b$\x0e")}))!@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
Note that non-ascii characters in the above source code will be escaped (such as \x9f).