if ($dat =~ /<a.+href.+?>.*<\/a>/i) { print "gefunden" };