Help for this page
my %hash = map { lc($_), 1 } <IF>;
%hash = map { lc($_), 1; s/<tag>//; s/<\/tag>// } <IF>;