#!/usr/bin/perl
$lies= "C:\\Batch\\Perl\\Werte.txt";
$schreib= "C:\\Batch\\Perl\\neu.txt";

open (DATEI, "< $lies")
or die "Fehler beim lesen von: $!";

while (<DATEI>)
 {
 chomp;
 my ($D,$M,$Y) =~ /^(\d\d?)\.(\d\d?)\.(\d{2,4})/;
 if (not defined $Y) {
 	($Y,$M,$D) =~ /^(\d{4})(\d{2})(\d{2})/;
        }
 push (@array, $D.$M.$Y);
 }
 open (REIN, "> $schreib")
 or die "Fehler beim schreiben von: $!";    
 foreach (@array)
 {
   print REIN " $_ ";
 }