my $link='';
if($dat =~ /<a\s+href=("[^"]+"|[^ >]+)(?:\s+[a-z]+=(?:"[^"]+"|[^ >]+))*>/i)
{
$link=$1;
$link=$1 if $link=~m#^"(.*)"$#;
print "Link $link gefunden";
}