use Jcode;
my $encoding = getcode($content); 

##</code><code>##

my $mailtext = Jcode::convert($content, "jis", $encoding);