$ perl -Mstrict -Mwarnings -E 'my $x = qq{X\xE2\x80\x9CX}; $x =~ s/[\xE2][\x80][\x9C]/"/g; say $x'
X"X
$ perl -Mstrict -Mwarnings -E 'my $x = qq{X\xE2\x80\x9CX}; $x =~ s/[\xE2][\x80][\x9C]/"/g; say $x'
X"X

##</code><code>##

$ perl -Mstrict -Mwarnings -E 'my $x = qq{X\xE2\x80\x9CX}; $x =~ s/[\xE2][\x80][\x9C]/"/g; say $x'
X"X