$file =~ s/[^a-z]//ig;