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

##</code><code>##

my @files = grep {/\.txt$/}  readdir DIR;