#!/usr/bin/perl

# Badly named script, opposite of utf8_to_ascii.pl: removes decimal entities in
# HTML or XML replacing them with utf8 equivalents.

# ** Haven't really tested this **

use encoding 'utf8';

while (<>) {
	s/&#([0123456789]+);/pack("U",$1)/eg;
	print $_;
}