#!/usr/bin/perl
#

use strict;

open my $file, $ARGV[0];

while (<$file>) {
    foreach my $c (
	['é', "'", 'e'], 
	['É', "'", 'E'], 
	['è', '`', 'e'], 
	['È', '`', 'E'], 
	['à', '`', 'a'], 
	['À', '`', 'A'], 
	['ê', '^', 'e'], 
	['Ê', '^', 'E'], 
	['ù', '`', 'u'],
	['ô', '^', 'o'],
	['Ô', '^', 'O'],
	['ç', 'c', '{c}'],
	['Ç', 'c', '{C}'],
    ) { 
	s/$c->[0]/\\$c->[1]$c->[2]/g 
    }
    print
}