$evil_html =~ s/</&lt;/g;
$evil_html =~ s/>/&gt;/g;

##</code><code>##

%keepers = (
   '<p>'  => '#p#',
   '<br>' => '#br#',
   '<hr>' => '#hr#',
);