while(my ($param, $rx) = each %laundry) {
    local $_ = $cgi->param($param)
        or die "Parameter $param not present\n";

    ($laundered_params{$param}) = /$rx/;
        or die "Invalid input for $param\n";
}