$string =~ /(a+)(??{$1 =~ s/a/x/gr})/