Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
$input =~ s/&rdquo;/&#8221;/gi;
$input =~ s/&rsquo;/&#8217;/gi;
print "processed input: $input\n";

Select or download this

input: &lt;b&gt;&lt;/b&gt;Officially called &lt;&gt;&ldquo;events,&rdq
+uo;&lt;/a&gt; as &quot;never events&quot;
processed input: &lt;b&gt;&lt;/b&gt;Officially called &lt;&gt;&#8220;e
+vents,&#8221;&lt;/a&gt; as &quot;never events&quot;