Select Code to Download

Byte cp1252   Want                                Ok?
---- ------   ----------------------------------  ---
...
84   U+201E   U+201E DOUBLE LOW-9 QUOTATION MARK  yes
8F   ------   U+008F SINGLE SHIFT THREE           NO!
7E   U+007E   U+007E TILDE                        yes

use strict;
use warnings;
...

    say if $got eq $want;
}

-- empty output except for bad data errors --

use strict;
use warnings;
...

my $got = decode('cp1252', $have, sub { encode_utf8(chr($_[0])) });
say "match" if $got eq $want;

match