$name =~ m,<(.*?)>(.*?)</(.*?)>,;