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