my $s = 'äöü';
print substr $s, 0,1;