Help for this page
% perl -de 0 DB<1> x "ab" =~ /(a*)((?:ab)*|b*)/ 0 'a' 1 ''
DB<2> x "ab" =~ /(a*)((?:ab)*|b*)$/ 0 'a' 1 'b'