#!/usr/bin/perl open(FILEINPUT,"$ARGV[0]"); while ($ligne = ){ $ligne=~s/RECHERCHE/REMPLACEMENT/g; print $ligne; } close(FILEINPUT);