my @files = grep { /EXP/ } readdir(DIR);