#!/usr/bin/perl5.16.3 -w                                                                                        

use strict;
use utf8;
use HTML::Entities;
binmode STDOUT, ':encoding(UTF-8)';

my $string1 = "Édition limitée.";
$string1 = decode_entities($string1);
$string1 = lc($string1);
print $string1, "\n";
# Yields "édition limitée."                                                                                     

my $string2 = "Édition limitée.";
$string2 = decode_entities($string2);
$string2 = lc($string2);
print $string2, "\n";
# Yields "Édition limitée."