use strict;
use warnings;
use HTML::Entities;

my $line="” 3”";
decode_entities ($line);

##</code><code>##

$line="&rdquo; 3 &amp;rdquo;";
$line =~ s/(?:&|&amp\;)rdquo;/'/g;
print "$line\n";

##</code><code>##

' 3 '