use HTML::Entities;
&encode_entities($string)

##</code><code>##

&decode_entities($string)