Select Code to Download

my $chars = join "", keys %_table;
sub escapeUTF8  # Now needs a better name!
...
   my ( $sgml_r) = @_;
   $$sgml_r =~ s/([\Q$chars\E])/$_table{$1}/g;
}