x-sjis-cp932.enc
x-sjis-jdk117.enc
x-sjis-jisx0221.enc
x-sjis-unicode.enc

##</code><code>##

my $parser = new XML::Parser(ProtocolEncoding=>"x-sjis-unicode");