How about that:
@words=grep{$_}/(?:.*\d.*)?(\b\w+?\b)?/g;
Note that the anonymous monk want to match anything if there is a digit in the string, and he want to use only a reg exp.
I had problems, because I was matching '' (empty).
The
grep solves that.
I hope this help.
P.S. I think it would be better with two reg exp's, but we know, TIMTOWTDI
Regards,
Hopes