#!/usr/bin/perl
open(FILEINPUT,"$ARGV[0]");
while ($ligne = <FILEINPUT>){
# on remplace dans chaque ligne le motif recherche par remplacement
$ligne=~s/roi/pat/g;
print $ligne;
}
close(FILEINPUT) ;