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;