Help for this page
$string =~ /x{<code goes here>}/
$string =~ /(a+)x{(??{length $1})}/
$string =~ /(a+)(??{$1 =~ s/a/x/gr})/