Select Code to Download

use feature qw( say );
use Encode qw( encode );
...
      "\342\200\234";

# Output: 1

utf8::decode($s);

use utf8;

use open ':std', ':encoding(UTF-8)';

use feature qw( say );
use Encode qw( decode );
...

my $ucp = decode("UTF-8", $utf8);
say length($ucp);    # 26 chars

use feature qw( say );
use Encode qw( decode );
...
my $ucp = decode("UTF-8", $utf8);
say length($ucp);    # 26 chars
Dump($ucp);          # CUR = 30