Select Code to Download

use v5.14;
use strict;
...
say repair_double($rdqm, { via => 'Windows-1252' });

__END__

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

C:\>