$ascii = encode( "ascii", $utf8, sub{ sprintf "<U+%04X>", shift } );
$ascii = encode( "ascii", $utf8, sub{ sprintf "\x{%04X}", shift } );