You could do something like:

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

but thats 3 lines...
Update Beaten to it by davorg again. Gr...