#!/usr/bin/perl

open(FIC, $ARGV[0]);

$FichierSortie="rmEL_$ARGV[0]";
open(Sortie,">$FichierSortie");

while ($ligne = <FIC>)
{
    print Sortie $ligne unless ($ligne=~ /^$/ ) ;

}      

close(FIC);
close(Sortie);


