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

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.