#!/usr/bin/perl -w                        
                                                                      
open(FILE, "< decoupe.txt")
    or die ("prob a l'ouverture du fichier");
@save = <FILE>;
close(FILE);
foreach (@save)
{
    $_ = "" if ($_ =~ m/255.255.255.255/);
    chomp $_;
}
#open(FILE, ">decoupe.txt")
#    or die ("prob a l'ouverture du fichier");
#foreach (@save)
#{
#    print FILE $_."\n" if ($_);
#}
#close(FILE);