+for (keys %di) {
+ # find control characters (first 32 chars from 0 and 128)
+ next if $di{$_} & ~0b1001_1111;
+ # rename to something more descriptive
+ $info{$_}->{name} = $info{$_}->{unicode10}
+ ? '<'.$info{$_}->{unicode10}.'>' # the old name was much more useful
+ : sprintf('<control U+%04X>', $di{$_}); # at least identify by value
+ # show descriptive symbols instead of control chars themselves
+ $di{$_} += 0x2400 if $di{$_} < 32;
+}
+