......
@Liste_split = split (/<a /, $seniorentreff_de);
foreach (@Liste_split) {
        if ($_=~ m/href="\/forum\/(board\/.*?;tpc[0-9],0)" class="forumtitle">/){
                $url_topic = $url_kategorie."$1"; 
                print "$url_topic\n";
                $Unterkategorie = qx (curl $url_topic);
                @Unterkategorie_split = split (/<a /, $Unterkategorie);
                foreach (@Unterkategorie_split) {
                        #print "$_";
                        if ($_=~ m/"href="\/forum\/(board\/.*?;tpc.*?,.*?)"/){ 
                                $url_Frage=$url_kategorie."$1";         
                        }
                }
        }
}