my %input = map { $_->$cgi->param($_) } $cgi->param();

##</code><code>##

my %input = map { $_ => scalar $cgi->param($_) } $cgi->param();

##</code><code>##

foreach my $key (keys %input) { 
 $input{$key} =~ tr/*//d; 
 # or whatever makes sense 
} 

##</code><code>##

tr/*//d for values %input;