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

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

my $__FILE__ = __FILE__;

# CüŽq C<i>, C<I> ‚¨‚æ‚Ñ C<j> ‚́AC<\p{}>, C<\P{}>, POSIX C<[: :]>.
# (—Ⴆ‚Î C<\p{IsLower}>, C<[:lower:]> ‚È‚Ç) ‚ɂ͍ì—p‚µ‚Ü‚¹‚ñB
# ‚»‚Ì‚½‚߁AC<re('\p{Lower}', 'iI')> ‚Ì‘ã‚í‚è‚É
# C<re('\p{Alpha}')> ‚ðŽg—p‚µ‚Ä‚­‚¾‚³‚¢B

# Char::INFORMIXV6ALS ƒ\ƒtƒgƒEƒFƒA‚É C<\p{}>, C<\P{}>, POSIX C<[: :]> ‚Ì‹@”\‚ª‚à‚Æ‚à‚Æ‘¶Ý‚µ‚È‚¢B

print "ok - 1 $^X $__FILE__ (NULL)\n";

__END__