local our $pat;
    $pat = qr/
        1
    |
        (1+)
        \g{-1}{$b_m1}
        (?(?{ $^N =~ $pat })(?=)|(?!))
    /x;