I have no idea what the problem is -- then again, I don't know anything about Unicode -- but you can find out which character is giving a problem by adding the following after $c = charblock($uChar);:

print "DEBUG: charblock($uChar) returned undef!\n"
   unless defined $c;
[download]