#!/usr/bin/perl

open(Entree,$ARGV[0]);
open(Sortie,">Clean_$ARGV[0]");

 while ($Ligne = <Entree>) {

	$Ligne=~s/(.[^\s]*)\s(.[^\s]*)\s(.[^\s]*)\s(.[^\s]*)\s(.*)\n/$3 $5\n/;	
	    print Sortie $Ligne;
    }