my $aaa = "aáeéiíoóuúoöuü";
my $bbb = uc $aaa;
print "$aaa\n";
print "$bbb\n";