$vars{$_} = HTML::Entities::encode_entities($vars{$_}, '<>&"');

##</code><code>##

$encoded = encode_entities($input, '<>&"');