@num = split /[ab]+/, $x;  # @num = ('12','34','5')
print @num,$/;