Select Code to Download

use HTML::Entities qw( decode_entities );

...
   local $HTML::Entities::entity2char{egrave} = chr(232);
   return decode_entities(@_);
}

use HTML::Entities qw( _decode_entities );

...
      return map { _decode_entities($_, \%entity2char } @_;
   }
}