foreach $file (@file_list) {  # Nacheinander Öffnen der Dateien die Überprüft werden sollen
  print "$file\n";
      my $comment = 0;
      open(IN,"$file") || print "Can't open $file!\n\n";
      push (@include_temp, $file);

      while (<IN>) {

        ###Auskommentierte Zeilen überspringen###
        if (/\%\{.*/){
           if(/^@([A-Z][^T][^W][^(]+)\s*\(/i){ # Suche nach Funktionen vor einem Kommentar in der gleichen Zeile
             $function = $1;
             $function =~ s/\s+$//;
             push(@function_temp, $function);
             $comment =1;
             next;
           }else {
             $comment =1;
           }
        }