#!/usr/bin/perl
use strict;
use warnings;

use utf8;
binmode(STDOUT,':utf8');

my $x = lc('ẞ');
print "$x\n";