Unicode(UTF-8) の文字列を別のエンコードに変換する

====== コードここから

use Unicode::Japanese;

#UTF-8 の文字列を euc-jp に変換する
print Unicode::Japanese->new($utf8txt)->euc;

#その他、変換先として指定できるのは 
#"'jis', 'sjis', 'euc', 'utf8', 'ucs2', 'ucs4', 'utf16', 
#'utf16-ge', 'utf16-le', 'utf32', 'utf32-ge', 'utf32-le', 
#'ascii'，'binary', 'sjis-imode', 'sjis-doti', 'sjis-jsky',
====== コードここまで

Unicode::Japanese は下記よりダウンロード可能。

http://search.cpan.org/~hio/Unicode-Japanese/