Does this help?<br><br><div class="gmail_quote">On Thu, Mar 3, 2011 at 2:38 PM, Erik Wasser <span dir="ltr">&lt;<a href="mailto:erik.wasser@iquer.net">erik.wasser@iquer.net</a>&gt;</span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">

foreach my $u (&#39;<a href="http://localhost/test/%E3%81%8B" target="_blank">http://localhost/test/%E3%81%8B</a>&#39;,<br>
&quot;<a href="http://localhost/test/\x{304b}" target="_blank">http://localhost/test/\x{304b}</a>&quot; )<br>
{<br>
    my $request = HTTP::Request-&gt;new(<br>
        &#39;GET&#39;=&gt; <b>encode_utf8($u)</b>, [ &#39;Content-Type&#39; =&gt; &#39;text/html; charset=utf8&#39;, ],<br>
    );<br>
    print $request-&gt;as_string();<br>
    my $response = request( $request );<br>
    is( $response-&gt;content, &#39;length = 1&#39;, &#39;length = 1&#39; );<br>
}<br>
<br></blockquote></div><br>-- <br>Bill Moseley<br><a href="mailto:moseley@hank.org" target="_blank">moseley@hank.org</a><br>