my $f = "%0".($b + ($b & 1))."b" ;
  my $cnt = 0 ;
  $cnt += sprintf($f, $_) =~ m/^(?:01|10|11)*00/ for 0..((2**$b)-1) ;