Select Code to Download

use strict;
use warnings;
...
   say('length = ', length($dec_twice));
   say($orig eq $dec_twice ? 'ok' : 'not ok');
}

length = 4
Using utf8::decode
...
Using Encode::decode
length = 4
ok