jadeallenx · August 11, 2011 23:01
diff --git a/unicode-test.pl b/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/;