EscapeUTF8.pm - Escape IBM extended Kanji and emoji in Shift_JIS
use EscapeUTF8;
my $text = "";
EscapeUTF8::escape( \$text, $ENV{HTTP_USER_AGENT} );
EscapeUTF8::unescape( \$text, $ENV{HTTP_USER_AGENT} );
escape( UTF8_STRING, USER_AGENT );
何もしません。（未実装）
unescape( UTF8_STRING, USER_AGENT );
UTF8_STRING（スカラー文字列へのリファレンス、またはスカラー文字列自体）中の &#xHHHH; 形式にエスケープされた部分を UTF-8 バイナリに変換します。
Copyright 2004 Kawasaki Yusuke <u-suke [at] kawa.net>
http://www.kawa.net/