Select Code to Download

use Unicode::Normalize;
use charnames ':full'; # this is just to make things easier in this ex
+ample
...

print length($a),$a,"\n";
print length($b),$b,"\n";

2Ö
1Ö