so hier gehts weiter :

#AB FL 17+18
elsif($array[2] =~ "\\+")
{
($vormplus,$nachmplus) = split("\\+",$array[2]);
printf AUSGABEDATEI "%s\t%s-%03u-%03u \n", $org, $Gemarkungsnummer,$vormplus,$nachmplus, $Flurnummer, $Flurstuecksnummerzaehler,$Flurstuecksnummernenner;
}

#AL FL 18 NR 21 22 618
if($array[5] ne "UA" & $array[6] ne "" & $array[6] ne "UA")
{
$Flurstuecksnummer2=$array[5];
($Flurstuecksnummerzaehler2,$Flurstuecksnummernenner2)=split ("/",$Flurstuecksnummer2); # aufsplitten in Zaehler und Nenner
$Flurstuecksnummer3=$array[6];
($Flurstuecksnummerzaehler3,$Flurstuecksnummernenner3)=split ("/",$Flurstuecksnummer3); # aufsplitten in Zaehler und Nenner

printf AUSGABEDATEI "%s\t%s-%03u-%05u/%03u.00#%s-%03u-%05u/%03u.00#%s-%03u-%05u/%03u.00 \n", $org, $Gemarkungsnummer, $Flurnummer, $Flurstuecksnummerzaehler, $Flurstuecksnummernenner,$Gemarkungsnummer, $Flurnummer, $Flurstuecksnummerzaehler2,$Flurstuecksnummernenner2,$Gemarkungsnummer, $Flurnummer, $Flurstuecksnummerzaehler3,$Flurstuecksnummernenner3;
}

#AL FL 17 NR 315/4 UA
if($array[4] =~ "/" & $array[5] ge "UA")
{
printf AUSGABEDATEI "%s\t%s-%03u-%05u/%03u.00-$array[5] \n", $org, $Gemarkungsnummer, $Flurnummer, $Flurstuecksnummerzaehler, $Flurstuecksnummernenner;
}

#AL FL 18 NR 101 102 UA
if($array[6] ge "UA")
{
$Flurstuecksnummer2=$array[5];
($Flurstuecksnummerzaehler2,$Flurstuecksnummernenner2)=split ("/",$Flurstuecksnummer2); # aufsplitten in Zaehler und Nenner

printf AUSGABEDATEI "%s\t%s-%03u-%05u/%03u.00#%s-%03u-%05u/%03u.00 \n", $org, $Gemarkungsnummer, $Flurnummer, $Flurstuecksnummerzaehler, $Flurstuecksnummernenner,$Gemarkungsnummer, $Flurnummer, $Flurstuecksnummerzaehler2,$Flurstuecksnummernenner2;
}

if($org =~ "\\-" or $org =~ "\\.")
{
printf FEHLERDATEI "$org \n";
}

}
close(EINGABEDATEI) or die $!;
close(AUSGABEDATEI) or die $!;
close(FEHLERDATEI) or die $!;

[/perl]