unless (tr/0-9//) {
 my @words = /\w+/g;
 print "@words\n";
}