use utf8;
my $first_name = 'Éve';
my $last_name = 'Courneyer';
my %NEW = ( 'intid' => 2 );
$ID = lc(substr($first_name, 0, 1)) . lc(substr($last_name, 0, 1)) . $NEW{'intid'};
$ID =~ s/é/e/gi;
$ID =~ s/ù/u/gi;
$ID =~ s/è/e/gi;
$ID =~ s/à/a/gi;
$ID =~ s/â/a/gi;
$ID =~ s/û/u/gi;
$ID =~ s/ê/e/gi;
$ID =~ s/î/i/gi;
$ID =~ s/ô/o/gi;
$ID =~ s/ç/c/gi;
$ID =~ s/É/e/gi;
$ID =~ s/Ù/u/gi;
$ID =~ s/È/e/gi;
$ID =~ s/À/a/gi;
$ID =~ s/Â/a/gi;
$ID =~ s/Û/u/gi;
$ID =~ s/Ê/e/gi;
$ID =~ s/Î/i/gi;
$ID =~ s/Ô/o/gi;
print $ID;