#!/usr/bin/perl -w

my @datei = ('/home/user/perl/honky.txt');
my $z=0;
my $irgendwas;

foreach $irgendwas (@datei)
{

        while(@datei)
        {
        open (DATEI, "$irgendwas") || die ("konnte die Datei nicht oeffnen. Fehler: $!");
        @eingabe=<DATEI>;
        close DATEI;
        my $z=0;
                        if( $irgendwas =~ /START/ )
                                {
                                        $z=1;
                                        $elem=$irgendwas;
                                }
                        if( $irgendwas =~ /ENDE/ )
                                {
                                        $z=0;
                                        $tabelle[$i]=$elem;
                                        $i++;
                                }
                        if($z==1)
                                {
                                        $elem=$elem.$_;
                                }
        }

        open (OUT, ">ausgabe.txt") || die ("konnte die Datei nicht oeffnen. Fehler: $!");

        print OUT @eingabe;
        close OUT;
}