use HTML::Entites qw( encode_entities );
$string = encode_entities($string);