#!/usr/bin/perl -w
#
# Change numeric entities to unicode characters.
#
# @(#) $Id: nument2uc.pl,v 1.1 2001/07/30 21:29:13 dom Exp $
#

use 5.6.0;

use strict;
use utf8;

use Carp qw(croak);

while (<>) {
	# XXX chr() doesn't correctly encode values between 128 and
	# 255, but pack does (under 5.6.0).  Go figure.
	s/&\#(\d+);/pack("U",$1)/ge;
	s/&\#x([[:xdigit:]]+);/pack("U", hex($1))/ge;
	print;
}