my @files;
find( sub {
  push @files, $File::Find::name 
    if <some condition>
}, '.')