use HTML::Entities qw( decode_entities );

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