The glob command is much better; pass it a wildcard-embedded string, and it returns a list of filenames that match it (assuming in CWD). If you need DOS-based matching, you can use File::DosGlob to replace the system glob with a slightly different version. In your code, specifically:

my @files = glob "$fpcdir/$project/*fpc";
foreach my $file ( @files ) {
   open FH, "<$file" or die $!;
   while (<FH>) {
      # inner loop unchanged...
   }
   close FH;
}
[download]

</CODE>

-----------------------------------------------------
Dr. Michael K. Neylon - mneylon-pm@masemware.com || "You've left the lens cap of your mind on again, Pinky" - The Brain
"I can see my house from here!"
It's not what you know, but knowing how to find it if you don't know that's important