$ grep 'm\/.*\$.*\/' unum.pl
		if ($k->[2] =~ m/$cpat/) {
		if ($XHTML_ENTITIES{$k} =~ m/$cpat/) {
		if ($UNICODE_NAMES{$k} =~ m/$cpat/) {
$ grep cpat unum.pl
	    my $cpat = qr/$2/i;
		if ($k->[2] =~ m/$cpat/) {
	    my $cpat = qr/$1/i;
		if ($XHTML_ENTITIES{$k} =~ m/$cpat/) {
	    my $cpat = qr/$1/i;
		if ($UNICODE_NAMES{$k} =~ m/$cpat/) {
$ nano unum.pl
$ grep 'm\/.*\$.*\/' unum.pl
		if ($k->[2] =~ m/\Q$cpat\E/) {
		if ($XHTML_ENTITIES{$k} =~ m/\Q$cpat\E/) {
		if ($UNICODE_NAMES{$k} =~ m/\Q$cpat\E/) {
$ grep '\/.*\$.*\/' unum.pl
	    my $cpat = qr/$2/i;
		if ($k->[2] =~ m/\Q$cpat\E/) {
	    my $cpat = qr/$1/i;
		if ($XHTML_ENTITIES{$k} =~ m/\Q$cpat\E/) {
	    my $cpat = qr/$1/i;
		if ($UNICODE_NAMES{$k} =~ m/\Q$cpat\E/) {
	    $n =~ s/^c?=(.+)$/$1/i;
$ unum c=hello
Can't find unicode character property definition via main->IsDigit or Is/Digit.pl at /home/user/bin/unum.pl line 194
$ nano unum.pl
$ unum c=hello
Can't find unicode character property definition via main->IsDigit or Is/Digit.pl at /home/user/bin/unum.pl line 194
$ nano unum.pl
$ unum c=hello
Can't find unicode character property definition via main->IsDigit or Is/Digit.pl at /home/user/bin/unum.pl line 194
$ grep '\/.*\$.*\/' unum.pl
	    my $cpat = qr/\Q$2\E/i;
		if ($k->[2] =~ m/\Q$cpat\E/) {
	    my $cpat = qr/\Q$1\E/i;
		if ($XHTML_ENTITIES{$k} =~ m/\Q$cpat\E/) {
	    my $cpat = qr/\Q$1\E/i;
		if ($UNICODE_NAMES{$k} =~ m/\Q$cpat\E/) {
	    $n =~ s/^c?=(.+)$/\Q$1\E/i;