use HTML::Entities qw( decode_entities );

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

##</code><code>##

use HTML::Entities qw( _decode_entities );

{
   my %entity2char = (
      %HTML::Entities::entity2char,
      egrave => chr(232),
   );

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