map {s/[^a-z ]//gi} @words;

##</code><code>##

my $x = " aabbaaccaa  " ;
$x =~ s/[^a-z ]//g ;