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