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