# abgespeichert als latin1
use locale;
my $x = "ÄA";
say lc $x;