my @files =grep(/$file_mask$/,readdir(DIR));

##</code><code>##

my @files =grep(/\Q$file_mask\E$/,readdir(DIR));