map { s/\</\&lt\;/g; s/\>/\&gt\;/g } values %$h_vars;

##</code><code>##

 s/\</\&lt\;/g, s/\>/\&gt\;/g for values %$h_vars;