#!/usr/bin/perl
use strict;
use warnings;
use HTML::Entities;

my $string = "’";
print "string: $string\n"; # &rsquo 

decode_entities($string);
print "de entitied: $string\n"; # ’
print "ord of string:" . ord($string) . "\n"; # 226

encode_entities($string);
print "re entitied: $string\n"; # â€&#153

my $character = encode_entities(chr(226));
print "character 226: $character\n"; # &acirc

$character = encode_entities(chr(8217));
print "character 8217: $character\n"; # &rsquo