Select Code to Download

# Make the opposite mapping
while (my($entity, $char) = each(%entity2char)) {
    $entity =~ s/;\z//;
    $char2entity{$char} = "&$entity;";
}

package HTML::Entities;
$char2entity{'.25'} = '¼';
...

package main;
...