#!/usr/bin/perl -wl
use strict;
use HTML::Entities;
use Text::Unidecode;

my $text = "advice to Gwenda to “let sleeping murder lie.”";

print unidecode( decode_entities($text) );   # advice to Gwenda to "let sleeping murder lie."

##</code><code>##

#!/usr/bin/perl -wl
use strict;
use Text::Unidecode;

my $text = "advice to Gwenda to &#8220;let sleeping murder lie.&#8221;";

$text =~ s/&#(\d+);/chr $1/ge;

print unidecode($text);                      # advice to Gwenda to "let sleeping murder lie."