use v5.14;
use strict;
use warnings;

use charnames qw( :full );
use Encode qw( encode decode );
use Encode::Repair qw( repair_double );

binmode STDOUT, ':encoding(UTF-8)';

my $ldqm = "\N{LEFT DOUBLE QUOTATION MARK}";
my $rdqm = "\N{RIGHT DOUBLE QUOTATION MARK}";

$ldqm = encode('UTF-8', decode('Windows-1252', encode('UTF-8', $ldqm)));
$rdqm = encode('UTF-8', decode('Windows-1252', encode('UTF-8', $rdqm)));

say repair_double($ldqm, { via => 'Windows-1252' });
say repair_double($rdqm, { via => 'Windows-1252' });

__END__

##</code><code>##

C:\>perl demo.pl | od -h
0000000000    E2  80  9C  0D  0A  EF  BF  BD  EF  BF  BD  3F  0D  0A
0000000016

C:\>