......
@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";		
			}
		}
	}
}