# encoding: GB18030
# This file is encoded in GB18030.
die "This file is not encoded in GB18030.\n" if q{ } ne "\x82\xa0";
use Char;
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(/.??/, 'ACE')) eq '(A)(C)(E)') {
print "ok - 1 $^X $__FILE__ (join('', map {qq{(\$_)}} split(/.??/, 'ACE')) eq '(A)(C)(E)')\n";
}
else {
print "not ok - 1 $^X $__FILE__ (join('', map {qq{(\$_)}} split(/.??/, 'ACE')) eq '(A)(C)(E)')\n";
}
if (join('', map {"($_)"} split(/\d*?/, 'ACE')) eq '(A)(C)(E)') {
print "ok - 2 $^X $__FILE__ (join('', map {qq{(\$_)}} split(/\\d*?/, 'ACE')) eq '(A)(C)(E)')\n";
}
else {
print "not ok - 2 $^X $__FILE__ (join('', map {qq{(\$_)}} split(/\\d*?/, 'ACE')) eq '(A)(C)(E)')\n";
}
__END__