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

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

# Unrecognized character \x82
# u”FŽ¯‚³‚ê‚È‚¢•¶Žš \x82v
if (q{ƒ}ƒbƒ`} eq pack('C6',0x83,0x7d,0x83,0x62,0x83,0x60)) {
    print qq<ok - 1 q{MACCHI}\n>;
}
else {
    print qq<not ok - 1 q{MACCHI}\n>;
}

__END__

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

if (q{ƒ\}ƒbƒ`} eq pack('C6',0x83,0x7d,0x83,0x62,0x83,0x60)) {

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