#!/usr/local/bin/perl

open (UNIDATA,"/usr/doc/unicode/unidata/unidata2.txt") || die;

while (<UNIDATA>)
{
	@_=split(/;/); $N{@_[0]}=$_ if $_=$_[1];
}

while (<>)
{
	s/<U(....)>/<U$1> = $N{$1}/g;
	print;
}