Re^2: requesting small regex

[perl@1983]

How about something like below? Apart from only digits, it also allows alphabets:

perl -e '$a = "ab%13!3&z* Trial"; $a=~s/(\w+)\W+/$1/g; print $a;'