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