Salut,

voici un exemple en ligne de commande
lami20j@debian:~/trash$ cat aaa
ligne1
ligne2
ligne3 - a supprimer
ligne4
ligne5
lami20j@debian:~/trash$ perl -pi.orig -e 's/.*//s if 3..3' aaa
lami20j@debian:~/trash$ cat aaa
ligne1
ligne2
ligne4
ligne5

lami20j@debian:~/trash$ cat ccm.pl
#!/usr/bin/perl -i.orig
use strict;use warnings;

while(<>){
    print "$_" unless 3 .. 3;
}
__END__
lami20j@debian:~/trash$ cat aaa
ligne1
ligne2
ligne3 - a supprimer
ligne4
ligne5

lami20j@debian:~/trash$ perl ccm.pl aaa
lami20j@debian:~/trash$ cat aaa
ligne1
ligne2
ligne4
ligne5

lami20j@debian:~/trash$ cat aaa.orig
ligne1
ligne2
ligne3 - a supprimer
ligne4
ligne5

lami20j@debian:~/trash$