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