@num = split/[a-b,A-Z]/, $x;
print "$num[$_],\n" foreach (0..$#num);