use Unicode::String;
use Unicode::Map;

my $map = new Unicode::Map('cp950');

$input="這是一個測試";

$utf16=$map->to16($input);
$utf8=Unicode::String::utf16($utf16)->utf8;
print $utf8;

小恐龍工作坊 提供