my @failed = grep {!($q->param($_)) || $q->param($_)=~/\|/} @required;