#!/usr/local/bin/perl

open (UNIDATA, $ENV{"UNIDATA"} || "/usr/share/unicode/unidata/unidata2.txt");
while(<UNIDATA>) { $charname[hex($1)]=$2 if /^(....);([^;]+);/ }
warn ("read unidata");

while (<>) 
{
	s/U[+]([0-9A-F]{4})/$& $charname[hex($1)]/;
	print;
}