%hash = map { lc($_), 1; s///; s/<\/tag>// } ;