Select Code to Download

#!perl -sl

...
binmode STDOUT, ':encoding(utf8)';
print my $str1 = "L\311GER";
print my $str2 = "l\351ger";