The following tests if the required key exists or if a required field's value contains a | character. In @failed is a list of all the fields that didn't pass the test.

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

~~rob
____________________________________________________________
eval pack "h*", "072796e647022245d445f475454494c5e622b3";