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