use HTML::Entities;
my $text = ...;
my $encoded_text = encode_entities($text);