use HTML::Entities;

my $str = "'Hello\" & <World>";
encode_entities($str, q{&"'});
print $str, "\n";      # prints &#39;Hello&quot; &amp; <World>