use feature qw( unicode_strings );
lc($s)