Help for this page

Select Code to Download


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