# encoding: Cyrillic
# This file is encoded in Cyrillic.
die "This file is not encoded in Cyrillic.\n" if q{‚ } ne "\x82\xa0";
use Cyrillic;
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 $^X $__FILE__ ('ƒAƒCƒE' =~ /(?<=[A-Z])([ƒAƒCƒE])/)($1)\n";
}
else {
    print "not ok - 1 $^X $__FILE__ ('ƒAƒCƒE' =~ /(?<=[A-Z])([ƒAƒCƒE])/)()\n";
}
__END__