tye,

Thank your for your quick response.
I've tried to replace all of the $var's as you suggest, and I'm still getting the same error on the same line.

The file enum.pl is from http://www.fourmilab.ch/webtools/unum/
Here is the log showing the changes I tried.

$ 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;
[download]

Here are the "elsif" lines, they don't look guilty to me:

$ cat unum.pl | grep 'if '
    if ($#ARGV < 0) {
    if ($n =~ m/^\d/) {
        $n = oct($n) if ($n =~ m/^0/);
    } elsif ($n =~ m/^(b|l)=(.+)/) {
        if ($k->[2] =~ m/\Q$cpat\E/) {
            if (!$blocktitle) {
            if ($listall) {
    } elsif ($n =~ m/^h=(.+)/) {
        if ($XHTML_ENTITIES{$k} =~ m/\Q$cpat\E/) {
    } elsif ($n =~ m/^n=(.+)/) {
        if ($UNICODE_NAMES{$k} =~ m/\Q$cpat\E/) {
    } elsif ($n =~ m/^&#/) {
    if (!defined($u)) {
        if (defined($u)) {
    if (!$chartitle) {
    if ($code >= 0x4E00) {
        if ($code <= 0x9FFF || ($code >= 0xF900 && $code <= 0xFAFF)) {
        } elsif ($code >= 0xD800 && $code <= 0xF8FF) {
        if ($code <= 0xDFFF) {
        } elsif ($code >= 0xAC00 && $code <= 0xD7A3) {
        pop(@s) if $t == 0x11A7;
        return $block->[2] if $block->[0] <= $code && $block->[1] >= $
+code;
[download]

john