#!/usr/bin/perl -na

@F = map
{
	s/^\\(.)/${{s => " ", n => "\n", "\\" => "\\", "#" => "#"}}{$1}/e;
	sprintf "U+%04X",
		/^([\xC0-\xDF])([\x80-\xBF])$/ ?
			(ord ($1) & 0x1F) << 6 |
			(ord ($2) & 0x3F)
		:
		/^([\xE0-\xEF])([\x80-\xBF])([\x80-\xBF])$/ ?
			(ord ($1) & 0x0F) << 12 |
			(ord ($2) & 0x3F) << 6 |
			(ord ($3) & 0x3F)
		:
		ord;
}
	grep /^(\\?[^\200-\377]|[\300-\377][\200-\277]+)$/, @F;

print join ("\t", @F), "\n" if @F > 1;
