haj@vdesktop:~$ perl -M5.010 -C -e 'print uc chr 0xdf, "\n"'
ß
haj@vdesktop:~$ perl -M5.012 -C -e 'print uc chr 0xdf, "\n"'
SS