Change accented characters to lower case using Perl

Question

I have set of accented characters like this

I want to convert upper case accented characters to lower case. I used the lc operator, but I can't get the expected output.

For example, I want to convert Â to â.

If I take an XML entity like &#x00C2, if I converted it to lower case it should become &#x00E2

Answer 1

#!/usr/bin/perl
use warnings;
use strict;
use Encode qw(encode decode);

my $enc = 'utf-8'; # This script is stored as UTF-8
my $str = "Ä\n";

# Byte strings:
print lc $str; # prints 'Ä', lc didn't have any effect

# text strings::
my $text_str = decode($enc, $str);
$text_str = lc $text_str;
print encode($enc, $text_str); # prints 'ä', lc worked as expected

Try it this may work.