my %entities = (
    special => 1,
    case    => 1,
);

$xml =~ s/&(?=(\w+);)/exists $entities{$1} ? "&" : die "Unknown entity '$1'"/ge;