#!/usr/bin/env perl

use strict;
use warnings;
use 5.026;

use utf8;                           # UTF-8 dans le programme
binmode(STDOUT, ":utf8");           # sortie en UTF-8
binmode(STDIN, ":encoding(utf8)");  # s'assure que l'entrée est en UTF-8

# Table de correspondance
my %nl_la = (
    ceses   =>  "ERRdio",
    ces     =>  "di",
    c       =>  "do",
    cis     =>  "de",
    cisis   =>  "deo",

    deses   =>  "roe",
    des     =>  "ro",
    d       =>  "re",
    dis     =>  "ri",
    disis   =>  "rie",

    eses    =>  "mei",
    es      =>  "me",
    e       =>  "mi",
    eis     =>  "ma",
    eisis   =>  "ERRmai",

    feses   =>  "ERRfia",
    fes     =>  "fi",
    f       =>  "fa",
    fis     =>  "fo",
    fisis   =>  "foa",

    geses   =>  "zaol",
    ges     =>  "za",
    g       =>  "sol",
    gis     =>  "sa",
    gisis   =>  "saol",

    ases    =>  "loa",
    as      =>  "lo",
    a       =>  "la",
    ais     =>  "li",
    aisis   =>  "lia",

    beses   =>  "tai",
    bes     =>  "ta",
    b       =>  "ti",
    bis     =>  "to",
    bisis   =>  "ERRtoi",
);

while (<>) {
    while (my ($nl,$la) = each(%nl_la)) {
        s/(?<!\p{L})$nl(?!\p{L})/$la/g;
    }
    print;
}
