#!perl -sl

strict;
warnings;

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