for (@required) {
  if ($q->param($_) =~ /\|/) { $req_err++; last; }
  next if $q->param($_);
  $req_err++; last;
}