Das ist nur ein Codeschnippsel, bitte nicht wegen Strict oder so
tadeln :) Danke

open(PROP, "findorder.prop");
@zeile = <PROP>;

$ASTRAa = substr($zeile[0],11);

$ASTRAb = substr($zeile[1],11);

$BHBa = substr($zeile[2],9);

$BHBb = substr($zeile[3],9);

AANF();

sub AANF ()
    {
      #Pfad zu dem Ordner aus Findorder Prop
      $Pfad = "$ASTRAa/save*/lab*.tmp";

      #Hier sucht er mir die Dateien raus und speichert sie in $AANF
      foreach $AANF(glob ($Pfad))
      {
        #Letzter Änderungszeitpunkt abfrage
        $ctime = (stat("$AANF"))[9];
        $date2 = localtime($ctime);

        open (EINE, $AANF);
        @DAT=<EINE>;

        #Hier wird kontrolliert ob eingabe mit Zahlen in Datei überinstimmen.
        foreach (@DAT)
        {
          if(/$input1/)
          {
            {if(/$input2/)
            {
              $temp1 = " ";
              $temp2 = "&nbsp;";
              $temp3 = "\n";
              $temp4 = "<br>\n";

             #Hier werden leerzeilen und zeilenumbrüche für html                                                                 umgewandelt und anschließend wird text ausgegeben.

              while(<$DAT2>)
              {
                $_ =~ s/$temp1/$temp2/g;
                $_ =~ s/$temp3/$temp4/g;

                print "$_";
              }
            }
            }
         }
      }
   }
}

@zeile = <PROP>;
chomp(@zeile);

$_ =~ s/\s*?$// for(@zeile);