#
#  von headmedtext bis zum nächsten headmedtext suchen
#
#


                    foreach $zeile (@seite){

                         if($zeile =~ m/class=\"headmedtext\">$eintrag/){
	                    $wichtig = 1;
                         }
                         if($zeile =~ m/class=\"headmedtext\">$next/){
                            $wichtig = 0;
                         }
                         if ($wichtig == 1){
                            if($zeile =~ m/<form name=\"(.*?)\" action=\"lva.asp\" target=\"_self\">/){
                               push(@forms, $1);
                            }
                         }
                    }