use strict;
use warnings;
use utf8;

$\="\n";

print "Perlversion $]";

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