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