Help for this page
foreach $val (keys %char2entity) { print "<br>$val => $char2entity{$val}\n"; }
... <br>@ => @ ... <br>. => .
encode($string, \000-\377)