while(<INFILE>){    
    $_ =~ s/$searchPattern1/$repalcePattern1/g;
    $_ =~ s/$searchPattern2/$replacePattern2/g;
    $_ =~ s/$searchPattern3/$replacePattern3/g;
    print OUTFILE $_;
} # end while