use XML::Entities;
use HTML::Entities;
my %HTML::Entities::char2entity = %{
  XML::Entities::Data::char2entity('all');
};
$XY = encode_entities($XY);