use strict;
use warnings;
use utf8;

$\="\n";

print "Perlversion $]";

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

##</code><code>##

C:/Strawberry/perl/bin\perl.exe -w d:/tmp/job/eszet.pl 
Perlversion 5.032001
ß -> 223
SS -> 83
SS -> 83