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