Help for this page
@files = grep("EXP", readdir(DIR));
my @files = grep { /EXP/ } readdir(DIR);
my @files = glob ("/home/grds/datafile/*EXP*.*");