This could work

#!/usr/bin/perl --
use strict; use warnings;
use Data::Dump        qw' dd                              ';
use HTML::Entities    qw' encode_entities decode_entities ';
use Encode            qw' encode decode                   ';
use Encode::Detective qw' detect                          ';

my $odata = my $str = '’';

decode_entities($str);
dd $str;
dd encode_entities($str);

my $encoding = detect($str);
dd $encoding;

$str = decode( 'UTF-8', $str );
dd $str;
dd encode_entities($str);

__END__
"\xE2\x80\x99"
"’"
"UTF-8"
"\x{2019}"
"’"
[download]