#!/usr/local/bin/perl -p

sub utf8 { 
    local($_)=@_;

    return $_ < 0x80 ? chr($_) : 
	$_ < 0x800 ? chr($_>>6&0x3F|0xC0) . chr($_&0x3F|0x80) :
	    chr($_>>12&0x0F|0xE0).chr($_>>6&0x3F|0x80).chr($_&0x3F|0x80);
}

s/<U([0-9A-F]{4})>/&utf8(hex($1))/gei;