}
# presentational string for some control(lish) entries
$info{$_}->{string} = '-' for grep { $di{$_} == 0x00AD } keys %di;
+$info{$_}->{string} = '␣' for grep { $di{$_} == 0x200B } keys %di;
+$info{$_}->{string} = '|' for grep { $di{$_} == 0x200C } keys %di;
+$info{$_}->{string} = '⁀' for grep { $di{$_} == 0x200D } keys %di;
$info{$_}->{string} = '→' for grep { $di{$_} == 0x200E } keys %di;
$info{$_}->{string} = '←' for grep { $di{$_} == 0x200F } keys %di;
# output perl code of hash
# (assume no backslashes or curlies, so we can just q{} w/o escaping)
+print "use utf8;\n";
print "+{\n";
printf '(map {$_=>0} qw{%s}),'."\n", join(' ',
map { substr($_, 1, 1).substr($_, 0, 1) } sort keys %di