sub GetAllSummaries
{
  my $FilePath = $File::Find::name;
  $FilePath =~ tr/a-z/A-Z/; # transform complete path to uppercase
  $FilePath =~ tr/\//\\/;
  my $FileName = basename $FilePath;
  if (($FileName =~ /SUMMARYALLCOMPACT.TXT/))
  {
     print $Filepath;
     #Springe zum übergeordneten Ordner und suche weiter
  }
}