use strict;
use File::Find;

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

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

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