@words=grep{$_}/(?:.*\d.*)?(\b\w+?\b)?/g;