#! /usr/bin/perl -l
use strict;
use warnings;
use utf8;

my $str = "aä";
my @chrs = split //, $str;
print scalar @chrs;