use Encode qw( from_to );

sub unicode_decode
{
  my $string = shift;
  from_to($string, 'UTF-8', 'US-ASCII', Encode::FB_HTMLCREF);
  return($string);
}