use HTML::Entities;
our %Charmap = %HTML::Entities::entity2char;
delete @Charmap{qw( amp lt gt quot apos )};
HTML::Entities::_decode_entities($html, \%Charmap);