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

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

# Can't find string terminator '"' anywhere before EOF
# uI’[•¶Žš '"'‚ªƒtƒ@ƒCƒ‹‚̏I‚è EOF ‚Ü‚Å‚ÉŒ©‚‚©‚ç‚È‚©‚Á‚½v
if (qq{"“ú–{Œê"} eq pack('C8',0x22,0x93,0xfa,0x96,0x7b,0x8c,0xea,0x22)) {
    print qq<ok - 1 qq{"NIHONGO"}\n>;
}
else {
    print qq<not ok - 1 qq{"NIHONGO"}\n>;
}

__END__

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

if (qq{"“ú–\{Œê"} eq pack('C8',0x22,0x93,0xfa,0x96,0x7b,0x8c,0xea,0x22)) {

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