use strict;
use warnings;
use utf8;

use open qw(:std :utf8);

$\="\n";


print "Perlversion $]";
my $SS = "\x{1E9E}";



no locale;
print "=== local off LANG=$ENV{LANG}";

print "* TEST UC";
print "$_ -> ",ord($_)  for "ß", "\Uß", uc("ß");

print "* TEST LC";
print "$_ -> ",ord($_)  for $SS, "\L$SS", lc($SS);



use locale;
print "=== local on LANG=$ENV{LANG}";

print "* TEST UC";
print "$_ -> ",ord($_)  for "ß", "\Uß", uc("ß");

print "* TEST LC";
print "$_ -> ",ord($_)  for $SS, "\L$SS", lc($SS);

##</code><code>##

Can't do lc("\x{1E9E}") on non-UTF-8 locale; resolved to "\x{1E9E}". at d:/tmp/job/eszet.pl line 33.
Can't do lc("\x{1E9E}") on non-UTF-8 locale; resolved to "\x{1E9E}". at d:/tmp/job/eszet.pl line 33.
Perlversion 5.032001
=== local off LANG=DEU
* TEST UC
ß -> 223
SS -> 83
SS -> 83
* TEST LC
&#7838; -> 7838
ß -> 223
ß -> 223
=== local on LANG=DEU
* TEST UC
ß -> 223
ß -> 223
ß -> 223
* TEST LC
&#7838; -> 7838
&#7838; -> 7838
&#7838; -> 7838