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

##</code><code>##

  DB<2> x "ab" =~ /(a*)((?:ab)*|b*)$/
0  'a'
1  'b'