in reply to Finding files excluding some

use File::Finder; # in the CPAN
my @files = File::Finder->depth->type('f')->not->name('*.[ao]')->in('/
+h');

[download]

-- Randal L. Schwartz, Perl hacker

In Section Seekers of Perl Wisdom