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

##</code><code>##

...
<br>@ => &#64;
...
<br>. => &#46;

##</code><code>##

encode($string, \000-\377)