my $ucstring = 'BLÄH';
my $lcstring = 'füsse';
print 'uc('.$lcstring.') = '.uc($lcstring)."\n";
print 'lc('.$ucstring.') = '.lc($ucstring)."\n";