$text = 'ab';
if ($text =~ /a*((ab)*|b*)/) {    print $1,$/;  }