use Jcode;Jcode::convert(\$FORM{'name'}, 'utf8') ;$FORM{'name'} =〜 s/(\W)/sprintf("%%%02X", unpack("C", $1))/eg;