Select Code to Download

my $entity;
while (<>) {
...

binmode STDOUT, ":utf8";
print "$_\t$entity{$_}\n" for ( sort {$entity{$a} cmp $entity{$b}} key
+s %entity );

open( ENTS, "<:utf8", $entfile ) or die "$entfile: $!";
my %entity = map { split } <ENTS>;
...
while (<>) {
    s/\&($enames);/$entity{$1}/g;
}