HTML::Entities::decode_entities_old($string)

##</code><code>##

my $string = "&rsquo;";
chop ( $string .= chr(0x1234)); 
print "string: $string\n"; # &rsquo 
decode_entities($string);

##</code><code>##

# at the top of the program
binmode STDOUT, ":utf8";