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