$ cat 775558.pl

use strict;
use warnings;

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

$ perl 775558.pl
' 3'
[download]