#!/usr/local/bin/perl

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

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

while (<>)
{
	print;
	s/<U(....)>/<U$U{$1}>/g;
	print "\U$_";
}