my %hash = map { lc($_), 1 } <IF>;

##</code><code>##

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