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