"abdabbc" =~ /a(?:b(?{ say "b"; }))+c/

##</code><code>##

"abdabbc" =~ /a(?:b(?{ local $c = $c + 1; }))+c(?{ say $c; })/