Select Code to Download

$text = 'I like donkeys';
if ($text =~ /a*((ab)*|b*)/) {    print "Success ($1)\n";  }

 $text =~ / a*    # zero or more of 'a'
                  (     # followed by
                 (ab)*  # zero or more of 'ab'
                  |     # or
                  b*    # zero or more of 'b'
                 )/x