START 
Beschreibung1|Wert1|
Beschreibung2|Wert2|
Beschreibung3|Wert3|
ENDE

#!/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;
}

#!/usr/bin/perl

use strict;
use warnings;

open(FILE, "<", "test.txt") or die $!;

my %hash = ();

while(<FILE>) {
    chomp $_;
    if($_ =~ /^(.*)\|(.*)\|$/) {
        $hash{$1} = $2;
    }
}

foreach my $key (keys %hash) {
    print "Wert an Stelle ".$key." => ". $hash{$key}."\n";
}

close FILE;

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my $string = q~START
Beschreibung1|Wert1|
Beschreibung2|Wert2|
Beschreibung3|Wert3|
ENDE
START
Beschreibung4|Wert4|
Beschreibung5|Wert5|
Beschreibung6|Wert6|
ENDE~;

my @parts = $string =~ /START(.*?)ENDE/sg;

my @array;

for my $part(@parts){
  $part =~ s/\n//g;
  while($part =~ /(.*?)\|(.*?)\|/g){
    push(@array,[$1,$2]);
  }
}

print Dumper(\@array);

while (<DATA>) {
    if (/START/ .. /ENDE/ ) {
        $set{$1} = $2 if /^(.*)\|(.*)\|.*$/;
    }
}