$tname =~ m/[declaration_]?name="(\w+[:]?.\w+[:]?.\w+);