say for 'abA' =~ /^ (? (?[ab]) | (?[ab]) )* (\g{right}) $/xi;