Select Code to Download

     ex. $_table{'Ö'}; # gives 'Ö'

my $bytes = pack( "C*", unpack( "U0C*", $$sgml_r ));

   use bytes;
    ....         #all will happen wrapped here
   no bytes;

   $bytes =~ s/([^\ -\~]+.*)/$self->_fixup($1)/ego;

    $$sgml_r =~ s/(.)/$self->_mapchar($1)/eg;

sub _mapchar {
   my ($char) = @_;
...
   }
   return $char;
}