!/usr/bin/perl -w

my $directory = "/home/grds/datafiles";
opendir(DIR, $directory) or die "couldn't open $directory: $!\n";
@files = grep("EXP", readdir(DIR));
closedir(DIR);

foreach $file (@files) {
  # print "$file\n";
        open ($file
}