やっつけ仕事 - てきとうメモ - cons @ wiki

CP932 (Windowsの日本語コード)

Perl

use Encode::Guess qw(cp932 utf8 eucjp);
print encode("utf8", decode("Guess", (pack "s", 0x8740)));