#!/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);