Perl 轉碼UTF-8/big5
use Encode;
# $str_big5為big5格式, $str_utf8為utf8格式
$str_utf8 = encode("utf8", decode("big5", $str_big5));
$str_big5 = encode("big5", decode("UTF8", $str_utf8));
轉成big5以後可以輕易用 length 取得字串長度