#!/usr/bin/perl

use warnings;
use strict;

my %pnr;

$pnr{AB} = "052001";
$pnr{AC} = "052025";
$pnr{AD} = "052030";

open(my $fhDatei,    "<Datei.txt")    or die $!;
open(my $fhErgebnis, ">Ergebnis.txt") or die $!;

while(my $zeile = <$fhDatei>) {

   chomp $zeile;

   my @satz = ();
   @satz    = split(/ /, $zeile);

   my $ergListe = "!LEER!";
   $ergListe    = $pnr{$satz[0]} if defined $pnr{$satz[0]};

   print $fhErgebnis $ergListe."-".sprintf("%03d", $satz[2])."-".sprintf("%05d", $satz[4])."/000.00\n";

} # while

close($fhDatei)    or die $!;
close($fhErgebnis) or die $!;

print "Fertig.\n";

1;