use strict;
use warnings;
use utf8;

my $nine = '९ devangari nine';

print "match1\n" if $nine =~ m/\d/a;

my $arabic_nine = '٩';
print "match2\n" if $arabic_nine =~ m/\d/u;

my $devangari_digits = '०१२३४५६७८९';
print "match3\n" if $devangari_digits =~ m/^\d+$/u;


print "match4\n" if $nine =~ m/[\a]/u;
print "match4a\n" if $nine =~ m/[a]/u;
print "match5\n" if $arabic_nine =~ m/[\a]/u;

print "match6\n" if $devangari_digits =~ m/[\a]/u;

my $backslash = q{\\};
print "match7\n" if $backslash =~ m/[\a]/u;
print "match8\n" if $backslash =~ m/[\-]/u;

my $minus = q{-};
print "match9\n" if $minus =~ m/[-]/u;
print "match10\n" if $minus =~ m/[\-]/u;