The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# encoding: KPS9566
# This file is encoded in KPS9566.
die "This file is not encoded in KPS9566.\n" if q{‚ } ne "\x82\xa0";

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

my $__FILE__ = __FILE__;

# Œã“Ç‚ÝŒ¾–¾ (—Ⴆ‚Î C<(?<=[A-Z])>) ‚ª’¼‘O‚Ì“ñƒoƒCƒg•¶Žš‚Ì‘æ“ñƒoƒCƒg‚É
# Œë‚Á‚ă}ƒbƒ`‚·‚邱‚Ƃɂ͑Ώˆ‚³‚ê‚Ä‚¢‚Ü‚¹‚ñB
# —Ⴆ‚΁A C<match("ƒAƒCƒE", '(?<=[A-Z])(\p{Kana})')> ‚Í C<('ƒC')>
# ‚ð•Ô‚µ‚Ü‚·‚ªA‚à‚¿‚ë‚ñŒë‚è‚Å‚·B

if ('ƒAƒCƒE' =~ /(?<=[A-Z])([ƒAƒCƒE])/) {
    print "ok - 1 # SKIP $^X $__FILE__ ('ƒAƒCƒE' =~ /(?<=[A-Z])([ƒAƒCƒE])/)($1)\n";
}
else {
    print "ok - 1 $^X $__FILE__ ('ƒAƒCƒE' =~ /(?<=[A-Z])([ƒAƒCƒE])/)()\n";
}

__END__