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

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

open IN, 'wuw_gesamt.txt' or die "Can't open in.txt: $!\n";
open OUT, '> Dateien/wuw1.txt' or die "Can't write to wuw1.txt: $!\n";

while (<IN>){
    if (/^(.*?)$split(.*)$/){
	print OUT $1 if $1;
	close OUT;
	$i++;
	open OUT, '> Dateien/wuw' . $i . '.txt' or die "Can't write to wuw +${i}.txt: $!\n";
	print OUT $2 if $2;
    }
    else{
    print OUT $_;
    }
}
close IN;