Select Code to Download

use charnames qw( :full );
use Encode qw( encode decode );
...
say repair_double($rdqm, { via => 'Windows-1252' });

__END__