if($dat =~ /<a+[\s]+href+=+([\w])+>/i)
{
	print "FOUND";
}