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

use Char::GBK;
print "1..2\n";

my $__FILE__ = __FILE__;

# T‚¦‚ß‚È—ÊŽw’èŽq‚ðŠÜ‚Þƒpƒ^[ƒ“ (—Ⴆ‚Î C<.??>‚âC<\d*?>) ‚́A
# ‹ó•¶Žš—ñ‚ƃ}ƒbƒ`‚·‚邱‚Æ‚ª‚Å‚«‚Ü‚·‚ªAC<jsplit()> ‚̃pƒ^[ƒ“‚Æ‚µ‚Ä—p‚¢‚½ê‡A
# ‘g‚ݍž‚Ý‚Ì C<split()> ‚©‚ç—\‘z‚³‚ê‚é“®ì‚ƈقȂ邱‚Æ‚ª‚ ‚è‚Ü‚·B

if (join('', map {"($_)"} split(/.??/, 'ƒAƒCƒE')) eq '(ƒA)(ƒC)(ƒE)') {
    print "ok - 1 $^X $__FILE__ (join('', map {qq{(\$_)}} split(/.??/, 'ƒAƒCƒE')) eq '(ƒA)(ƒC)(ƒE)')\n";
}
else {
    print "not ok - 1 $^X $__FILE__ (join('', map {qq{(\$_)}} split(/.??/, 'ƒAƒCƒE')) eq '(ƒA)(ƒC)(ƒE)')\n";
}

if (join('', map {"($_)"} split(/\d*?/, 'ƒAƒCƒE')) eq '(ƒA)(ƒC)(ƒE)') {
    print "ok - 2 $^X $__FILE__ (join('', map {qq{(\$_)}} split(/\\d*?/, 'ƒAƒCƒE')) eq '(ƒA)(ƒC)(ƒE)')\n";
}
else {
    print "not ok - 2 $^X $__FILE__ (join('', map {qq{(\$_)}} split(/\\d*?/, 'ƒAƒCƒE')) eq '(ƒA)(ƒC)(ƒE)')\n";
}

__END__