sub unicode_decode
{
  my $string = shift;
  utf8::decode($string);
  $string =~ s/([^a-zA-Z0-9])/'&#'.unpack('U0U*',$1).';'/eg;

  return($string);
}