utf8::upgrade($s);
lc($s)

##</code><code>##

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

##</code><code>##

use Data::Dumper;
local $Data::Dumper::Useqq = 1;
print(Dumper($s));

##</code><code>##

use Devel::Peek;
Dump($s);