When I do things like that, I tend to put the errors in an array instead. Makes things more readable:

foreach (@required) {
   push(@errors, "$_ is a required field") unless $q->param($_);
}

push(@errors, "E-mail address is invalid") unless Valid($q->param('ema
+il'));
push(@errors, "The moon is full") if $moon->isFull;

if (@errors) {
   &Error(@errors);
} else {
   &Success("You rule.");
}
[download]