Select Code to Download

#!/usr/bin/perl
use warnings;
...
while ($text =~ /($regex)/g) {
    say $dictionary{$1};
}

nutrition
aliment d’origine animale
évaluation de l’état nutritionnel