@words = map { (my $s=$_) =~ s/[^a-z ]//gi; $s } @words;