#!/usr/bin/perl -w
use strict;
use utf8;

binmode(STDIN, ":utf8");
binmode(STDOUT, ":utf8");

while(<STDIN>) {
  $_ = lc $_;
  # see http://en.wikipedia.org/wiki/Use_of_the_circumflex_in_French
  s/â/as/g;
  s/ê/es/g;
  s/î/is/g;
  s/ô/os/g;
  s/û/us/g;

  s/ç/c/g;
  s/é|è/e/g;
  s/á/a/g;
  print;
}