#!/bin/perl -P
#include "./francais.h"

utilise strict;
utilise Data::Dumper;

mon %hdh;                           # mes, ma and mon are all like my

tant_que (<>) {
  suivant sauf_si( r/^(.*?):\e*//); # r -> remplacer \e -> espace
  mon FFqui=FF1;                    # I do not have the Euro sign on my 
                                    # keyboard so I used F(rench) F(ranc)
  pour mon FFchamp( separe) {           
    mes( FFclef, FFvaleur)= separe /=/, FFchamp; 
  FFhdh{FFqui}{FFclef}= FFvaleur;  
  }
}
imprime Dumper( %hdh);

##</code><code>##

#define utilise  use
#define mon      my
#define ma       my
#define mes      my
#define tant_que while
#define sauf_si  unless
#define separe   split
#define suivant  next
#define imprime  print
#define ouvre    open
#define meurt    die
#define pour     for
#define ou       or

#define execute()              \
while( <DATA>)                 \
  { $programme .= $_; }        \
$programme=~ s{FF}{\$}g;       \
$programme=~ s{r/}{s/}g;       \
$programme=~ s{\\e}{\\s}g;     \
eval( $programme) or die $@;   

execute();
__DATA__

##</code><code>##

pierreafeux: mari=frederic ami=barnabe femme=wilma animal_de_companie=dino
simpson:     mari=omer femme=marjorie enfant=barthelemie
dupont:      mari=jean femme=marie enfant=pierre animal_de_companie=medor