Select Code to Download

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

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

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

tr/*//d for values %input;