for (qw!field1 field2!) {
    $cgi->param($_) =~ s/\*//g;
}