my $ucstring = 'BLÄH';
my $lcstring = 'füsse';
utf8::upgrade($$_) for (\$ucstring, \$lcstring);
print 'uc('.$lcstring.') = '.uc($lcstring)."\n";
print 'lc('.$ucstring.') = '.lc($ucstring)."\n";