Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -wl
use strict;
...
my $text = "advice to Gwenda to &#8220;let sleeping murder lie.&#8221;
+";

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

Select or download this

#!/usr/bin/perl -wl
use strict;
...
$text =~ s/&#(\d+);/chr $1/ge;

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