use open ':std', ':encoding(UTF-8)';  # UTF-8 terminal

my $s = "\xDC";
utf8::ugprade( $s );  # Use Unicode semantics
print lc($s), "\n";