#!/usr/bin/perl

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

my $line = qq{” 3”};
my $decode_1 = decode_entities $line;
my $decode_2 = decode_entities $decode_1;

print qq{$line\n};
print qq{$decode_1\n};
print qq{$decode_2\n};

$decode_2 =~ s/\x{201D}/'/g; #'

print qq{$decode_2\n};

##</code><code>##

Wide character in print at C:\perm\dev\_new.pl line 12.
Wide character in print at C:\perm\dev\_new.pl line 13.
&rdquo; 3&amp;rdquo;
” 3&rdquo;
” 3”
' 3'