@num = split/(?:[a-b,A-Z])/, $x;

print "$num[$_],\n" foreach (0..$#num);