if($dat =~ /<a(?:\s+[a-z]+=(?:"[^"]+"|[^ >]+))*\s+href=("[^"]+"|[^ >]+)(?:\s+[a-z]+=(?:"[^"]+"|[^ >]+))*>/i)