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

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

# Unrecognized character \x82
# u”FŽ¯‚³‚ê‚È‚¢•¶Žš \x82v
if (join('',"‘Ήž•\", "‚È‚ñ‚Å‚à‚¢‚¢‚¯‚Ç") eq join('',pack('C6',0x91,0xce,0x89,0x9e,0x95,0x5c),"‚È‚ñ‚Å‚à‚¢‚¢‚¯‚Ç")) {
    print qq<ok - 1 "TAIOUHYO","NANDEMOIIKEDO"\n>;
}
else {
    print qq<not ok - 1 "TAIOUHYO","NANDEMOIIKEDO"\n>;
}

__END__

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

if (join('',"‘Ήž•\\", "‚È‚ñ‚Å‚à‚¢‚¢‚¯‚Ç") eq join('',pack('C6',0x91,0xce,0x89,0x9e,0x95,0x5c),"‚È‚ñ‚Å‚à‚¢‚¢‚¯‚Ç")) {

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