How about something like this:

$cgi->param($_) =~ tr/*//d foreach $cgi->param;
[download]

Note that I've switched to using tr for removing characters.

The code becomes even easier if you use the functional interface to CGI.pm:

param($_) =~ tr/*//d foreach param;
[download]

Update: Of course, merlyn's point below is right. This code was never going to work. CGI::param doesn't return an lvalue, so you cant' assign to it. Use the code that he proposes instead.

I wonder if all the people who voted this node up had actually tried the code :)

--
<http://www.dave.org.uk>

"The first rule of Perl club is you don't talk about Perl club."