open(FH,"<$source") || die "cant open $source: $!\n";

while (<FH>){

    push @file, $_;

    if ($_ =~ /^-- End --/) {
        $zaehler++;

        open(GUN,">$destiny") || die "can write to $destinyfile$zaehler:$!";

        foreach $zeile (@file) {

            print GUN $zeile;

        }#endforeach

        undef @file;

        close(GUN);

        print "$zaehler:\n";

    }#endif

}#endwhile

close(FH);