#!/usr/bin/perl -w
use strict;
my $s = "Ä";
print length($s)."\n";