use warnings;
use strict;

my $str = <<'STR';
Les naïfs ægithales hâtifs pondant à Noël où il gèle sont sûrs d'être déçus et
de voir leurs drôles d'œufs abîmés
STR

my %xlateL = (
    a => 'âà',
    c => 'ç',
    e => 'èëéê',
    i => 'ïî',
    o => 'ô',
    u => 'ùû'
    #...
    );

my %xlateU;
$xlateU{uc $_} = uc ($xlateL{$_}) for keys %xlateL; #Generate the upper case versions

eval "\$str =~ tr/$xlateL{$_}/$_/;" for keys %xlateL;
eval "\$str =~ tr/$xlateU{$_}/$_/;" for keys %xlateU;

print $str;