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