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

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

# Can't find string terminator '"' anywhere before EOF
# uI’[•¶Žš '"'‚ªƒtƒ@ƒCƒ‹‚̏I‚è EOF ‚Ü‚Å‚ÉŒ©‚‚©‚ç‚È‚©‚Á‚½v
if ("‘Ήž•\" eq pack('C6',0x91,0xce,0x89,0x9e,0x95,0x5c)) {
    print qq<ok - 1 "TAIOUHYO"\n>;
}
else {
    print qq<not ok - 1 "TAIOUHYO"\n>;
}

__END__

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

if ("‘Ήž•\\" eq pack('C6',0x91,0xce,0x89,0x9e,0x95,0x5c)) {

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