If I understand you:

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

cLive ;-)

--
seek(JOB,$$LA,0);