my @files = grep ( /[a-z].+\.txt/, readdir($dh));