#!/usr/bin/perl -w open(IN, "$ARGV[0]") or die ("open: $!"); open(OUT, ">fichier_temporaire0"); while(<IN>) { if(m/chaine de caractères/g) { s/$_//g; } print OUT $_; } close(IN); close(OUT); Il doit y avoir possibilité de le faire en une ligne avec perl -pi -e. En espérant que ça aide.