# This file is encoded in ShiftJIS.
die "This file is not encoded in ShiftJIS.\n" if q{‚ } ne "\x82\xa0";

use Char::Sjis;
print "1..1\n";

# Bareword found where operator expected
# u—‡‚̌ꂪ‰‰ŽZŽq‚ª‚ ‚Á‚Ä‚Ù‚µ‚¢ˆÊ’u‚ÉŒ©‚‚©‚Á‚½v
if ("<img alt=\"‘Ήž•\\" height=115 width=150>" eq sprintf('<img alt="%s" height=115 width=150>',pack('C6',0x91,0xce,0x89,0x9e,0x95,0x5c))) {
    print qq<ok - 1 "<img alt="TAIOUHYO" height=115 width=150>"\n>;
}
else {
    print qq<not ok - 1 "<img alt="TAIOUHYO" height=115 width=150>"\n>;
}

__END__

Char::Sjis.pm ‚̏ˆ—Œ‹‰Ê‚ªˆÈ‰º‚ɂȂ邱‚Æ‚ðŠú‘Ò‚µ‚Ä‚¢‚é

if ("<img alt=\"‘Ήž•\\\" height=115 width=150>" eq sprintf('<img alt="%s" height=115 width=150>',pack('C6',0x91,0xce,0x89,0x9e,0x95,0x5c))) {

Shift-JISƒeƒLƒXƒg‚𐳂µ‚­ˆµ‚¤
http://homepage1.nifty.com/nomenclator/perl/shiftjis.htm