my $chartables = do 'unicode-table.inc.pl' or warn $@ || $!;
if ($chartables) {
while (my ($tablegroup, $grouprow) = each %{$chartables}) {
my $chartables = do 'unicode-table.inc.pl' or warn $@ || $!;
if ($chartables) {
while (my ($tablegroup, $grouprow) = each %{$chartables}) {