@files = grep("EXP", readdir(DIR));

##</code><code>##

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

##</code><code>##

my @files = glob ("/home/grds/datafile/*EXP*.*");