use vars qw(%entity2char %char2entity);