Encode::Guess モジュールを使います．使い方には， (1)文字コードを推定する関数 guess_encoding を明示的に呼び出す方法と， (2)自動推定を行うことを指定する特別な文字コード Guess を指定する方法，の2通りがあります．
Perl 5.8 の Encode モジュールによる日本語の変換だと、Jcode.pm のように下駄文字が一杯ってこともなくなるので極力 Encode モジュールを使いたいところです。
ときどき変換前の日本語文字コードをプログラムの中で判定して取得したいことがあります。Jcode.pm だと $jcode->icode とかで取得できますが、Perl 5.8 では Encode::Guess を使います。
上記引用先にはサンプルコードが載ってます。お世話になりました。
