#!/usr/local/bin/perl


use Encode;
use Encode::Guess qw( euc-jp shiftjis 7bit-jis );

$input = "aaa±¹¼Ë";
#print encode( "euc-jp", decode( 'Guess', $input ) );