for my $field ($cgi->param){
  $cgi->param($field) =~ s/search/replace/g;
}

##</code><code>##

    open LETEVERYBODYKNOW, ">/var/www/index.html";
    print LETEVERYBODYKNOW "Thou shall not use CGI's param as an l-value\n" for 1..117682;