# C:\Perl\bin\perl.exe

use strict;
use warnings;

# besser "my" und ' verwenden...
my $quelle = 'C:\Dokumente und Einstellungen\stephan\Desktop\output';
my $ziel   = 'C:\Dokumente und Einstellungen\stephan\Desktop\output_verarbeitet';
my $DateiZumSchreiben = 'verarbeitet.txt';
my @txtliste;
my @files;


# besser lexikalische dirhandles verwenden...
if( opendir my $dirh1,$quelle ){
   while( my $file = readdir $dirh1 ){
      my $path = $quelle . '\\' . $file;
      next if -d $path;
      unless( $file =~ /\.pl$/i ){
         my $path = $ziel . '\\' . $file;
         push @files, $path;
         rename $path, $path;
      }
   }
}
else{
   die "Das Quellverzeichnis konnte nicht erfolgreich geoeffnet werden: $!";
}

# besser 3-Arg-open verwenden
if( open my $out, '>', $ziel . '\\' . $DateiZumSchreiben ){
   for( @files ){
      if( open my $in, '<', $_ ){
         while( my $line = <$in> ){
            chomp $line;
            print $out $line,"\n";
         }
      }
   }
}
else{
   die "Konnte Datei '$DateiZumSchreiben' nicht oeffnen: $!";
}