+eval {
+ require HTML::Entities;
+ while (my ($char, $entity) = each %HTML::Entities::char2entity) {
+ $entity =~ /[a-zA-Z]/ or next; # only actual aliases
+ $info{$char}->{html} = substr($entity, 1, -1);
+ }
+ 1;
+} or warn "Failed importing html entities: $@";
+