@words=grep{!/\d/}split;