I got the following to work:

my @file = grep {/BLAH/} readdir (DIR);
foreach $file @file
  {
  do something;
  }
[download]

Thanks for your help!