jadeallenx/unicode-test.pl

## unicode-test.pl
#!/usr/bin/env perl

use warnings;
use strict;

use v5.14;
use utf8;

my $number = "௪";
my $letter = "த்";

say "$number matched" if $number =~ /\d/;
say "$letter matched" if $letter =~ /\d/;
	#!/usr/bin/env perl

	use warnings;
	use strict;

	use v5.14;
	use utf8;

	my $number = "௪";
	my $letter = "த்";

	say "$number matched" if $number =~ /\d/;
	say "$letter matched" if $letter =~ /\d/;