c:\folder1\folder2\my_file_name.com
c:\folder\filename.bat

##</code><code>##

 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;
           }
        }

##</code><code>##

c:\folder1\filename.doc
should only be
filename.doc

##</code><code>##

 foreach $file (@file_list) {  

  (my $volume,my $directories, my $filename) = File::Spec->splitpath( $file );
  print "$filename\n";