#!/usr/bin/perl -n

if (/^([ -\177])$/)
{
	printf "U+%04X\n", ord ($1);
}
elsif (/^([\xC0-\xDF])([\x80-\xBF])$/)
{
	printf "U+%04X\n", ((ord ($1) & 0x1F) << 6
	                   | ord ($2) & 0x3F);
}
elsif (/^([\xE0-\xEF])([\x80-\xBF])([\x80-\xBF])$/)
{
	printf "U+%04X\n", ((ord ($1) & 0x0F) << 12
	                   |(ord ($2) & 0x3F) << 6
	                   | ord ($3) & 0x3F);
}
else
{
	print;
}
