$string =~ / ( HIT (?= [^<]* (?! ]*> ) .*?<\/a> ) .*?<\/a> ) /x;