> > 横からだが
> > use utf8;
> > して一旦$textをdecodeしてからsjisにencodeするんだ
> encode( "shift_jis", decode_utf8($text)って感じで試したけど駄目だった(;´Д`)
> perl5.10と5.8両方入れてやったけど駄目だったからEncode.pmあたりが変わったのかもしれない

にしてみてもだめ？

参考：2013/04/03(水)00時16分29秒