@num = split /((?:a|b)+)/, $x; # @num = ('12','aba','34','ba','5')