Select Code to Download

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

 foreach $file (@file_list) {  # Nacheinander Öffnen der Dateien die Ü
+berprüft werden sollen
  print "$file\n";
...
             $comment =1;
           }
        }

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

 foreach $file (@file_list) {  

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