Thanks, the following lists only files, so that's a good start.

use strict;
use File::Find;

my $directory = '/home/******/Mail/.family.directory/Browne, Bill & Ma
+rtha';

my @found_files;
find( sub { push @found_files, $File::Find::name }, $directory );

foreach(@found_files){
  my $file = "$_";
  if (-f $file)
  {
    print $_,"\n";
  }
}
[download]

I will have to have a read up on arrays, and see how to delete certain entries from @found_files.I see that grep can be used. Possibly best to load another array with the (unwanted) filenames.