opendir (DIR, "$dir") || die "cant open dir.\n";
my @files = grep { /BLAH/ } readdir (DIR);
closedir (DIR);

for (@files)
{
   do something;
}