use HTML::Entities;
use HTML::Entities qw( %char2entity %entity2char ); #thanks ikegami

foreach $val (keys %char2entity) {
	print "<br>$val => $char2entity{$val}\n";
}

##</code><code>##

encode_entities($a, "\000-\377");