#!/usr/local/bin/perl
use strict;
use warnings;
use utf8;
binmode STDOUT, ":utf8";
my @chars = qw/A Ω Б あ ン 漢 한 ㄆ ฒ ᡇ א أ ლ æ̀ /;
print "$_ is ", (/\A\p{Alphabetic}\z/ ? '' : 'NOT '), "alphabetic.\n" for @chars;