ソースコードの文字コードを判定するには

もっとスマートな方法がありそうだけど・・・。Encode::Guessを使うと、JIS(ISO-2022-JP)の判別がうまくできないんだよなあ。ISO-2022-JPでソース書くなって感じではあるけど。

use strict;

my %code = (177=>'shiftjis', 27=>'7bit-jis', 142=>'euc-jp', 239=>'utf8');
print $code{ord("ｱ")};