Here's my code.
@fields =split /(a|b)+/, "a12cdabab";
for my $val(@fields)
{
 print "Value:$val\n";
}