use v5.12.0;
use warnings;
#use Devel::Peek;

use utf8;
use Encode qw(is_utf8 _utf8_on _utf8_off);

my $str = "ä";
say $str, ":",length($str);

#Dump($str);

_utf8_off($str);
say $str, ":",length($str);

#Dump($str);

##</code><code>##

ä:1
ä:2