use strict;
use warnings;

my ($ordner)="daten_2/";
my ($ausgabe)="result/";

my ($m,$gmd,$name);
my $gmd3 = '';
my $gm;
my (@files)=();

opendir DIR,$ordner;
        @files = readdir(DIR);
closedir(DIR);

-d $ausgabe  or  mkdir $ausgabe;

foreach $m (@files) {
        next if -d $m; 

        open (my $fh, '<', $ordner.$m) or die "Fehler beim oeffnen von $m\n";
        print "verarbeite $m ...\n";
        
        while(<$fh>) {

                $gmd=substr($_,0,4);            
                if ( $gmd eq 'ENDE') {
                        #Ende Kennung muss zum letzten Block
                        $gmd=$gmd3;
                }

                if ( $gmd3 ne $gmd ) {
                        #neue Station...
                        $gmd3=$gmd;
                        my ($file) = /(.+?) \d/;
                        open ($gm,">>", $ausgabe . $file )
                                or die "Fehler beim oeffnen von $ausgabe.$gmd\n";
                }

                print $gm $_;

        }
        
        close($gm);
        close($fh);

}