my @files = grep {/_*_.txt/}  readdir DIR;