use utf8;
use Devel::Peek;
$x="ü";         #<-- unicode char here
print Dump($x);
use bytes;
print length($x);
__END__