use strict;
use utf8;
my $s = 'äöüß';
printf "%s\n", substr $s, 0, 2; # 2 Zeichen
# ohne use utf8 werden 2 Bytes ausgegeben