grep { !defined $di->{$_} }
map { substr($_, 1, 1).substr($_, 0, 1) } sort keys %{$di}
);
-printf "q{%s}=>[%s],\n", $_, join(',',
+printf "q{%s}=>[%s],\n", s/(?=[\\}])/\\/gr, join(',',
ord $di->{$_}, # original code point
map {"'$_'"}
$uninfo->{ $di->{$_} }->[1], # name