#!/usr/bin/perl
use warnings;
use strict;

my $i = 0;
my $split = '@@';

open IN, 'wuw_gesamt.txt' or die "ERROR!\n";
open OUT, '> Dateien/wuw0.txt' or die "ERROR!\n";

while (<IN>)
{
	if (m/^Jahrgang, Seite\s*\[\s*(\d{4}),\s+(\d+)\s\]\s*$/){ 
        print OUT "Jahrgang         [ $1 ]\nSeite            [ $2 ]\n";
	}
	
	elsif (m/^Datum.Aktenz.\s*\[\s*(\d*).(\d*).(\d{4})\s(.*)/){
		print OUT "Tag              [ $1 ]\nMonat            [ $2 ]\nJahr             [ $3 ]\nAktenzeichen     [$4 \n";
	}
	
	elsif (m/^Abteilung\s*\[\s*(.*)\s(\d*)\s\]\s(.*)$/){
		print OUT "Abteilung        [ $1 ]\nAbteilungsnummer [ $2 ] @@\n";
	}
	
	elsif (/^(.*?)$split(.*)$/){
		print OUT $1;
		close OUT;
		$i++;
		open OUT, '> Dateien/wuw' . $i . '.txt' or die "ERROR!\n";
		print OUT $2;
	}
	
	else {
    print OUT $_;
  }
}
close IN;
print "\n$i Dateien wurden erfolgreich erstellt.\n";