Select Code to Download

if ($q->param('name') =~ /\|/
 || $q->param('site') =~ /\|/
 || $q->param('siteid') =~ /\|/
# and so on....
) {
# whatever...

foreach my $p (qw(name site siteid ...)) 
{
    if ($q->param($p) =~ /\|/)
...
        # or something
    }
}