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