%hash = map { $_=lc($_); s/<tag>//; s/<\/tag>//; $_ => 1 } <IF>; [download]
In reply to Re: map <IF> to hash with replacement by almut in thread map <IF> to hash with replacement by vit