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

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

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

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