How can I decode/code the text in Perl in order to correctly appear in an html page?

use HTML::Entities;

# decode the text first in case some of it is already encoded
decode_entities($text);

# encode the text
encode_entities($text);
[download]