I'm no File::Find expert, by any means, but this works for me:

...
my @list_of_files;

File::Find::find( \&add_to_list, $path );

sub add_to_list {
  push @list_of_files, $File::Find::name if ( /#some criteria# /);
}
...
[download]

HTH!!