my $entity;
while (<>) {
    if ( /<!ENTITY\s+(\S+)\s+"([^"]+)/ ) {
        my ( $name, $char ) = ( $1, $2 );
        $char =~ s/\&\#x([0-9a-f]{2,4});/chr(hex($1))/e;
        $char =~ s/\&\#([0-9]+);/chr($1)/e;
        $entity{$name} = $char;
    }
}

binmode STDOUT, ":utf8";
print "$_\t$entity{$_}\n" for ( sort {$entity{$a} cmp $entity{$b}} keys %entity );