#!/usr/bin/perl

use strict;
use warnings;

use HTML::Entities;

print encode_entities(chr(0x92)), "\n";
print encode_entities(chr(0x2019)), "\n";
print sprintf '%02X', ord decode_entities('’');

__DATA__

’
’
2019