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