>Используйте обычный grep, например (!defined $a || !defined $b || .. )
>заменяется на grep !defined, ($a,$b,$c).
>Пример:
>
>$ perl -le 'my ($a,$b,$c)=(0,1,2);print((grep !defined, ($a,$b,$c))?"Bad":"Good");'
>Good
>perl -le 'my ($a,$b,$c)=(0,1);print((grep !defined, ($a,$b,$c))?"Bad":"Good");'
>Bad

Спасибо, это то, что надо.
Спасибо всем

>Используйте обычный grep

Ещё одина близкая тема.
Как разрушить одним undef сразу несколько переменных?
Код undef ($a, $b, $c) не работает как хотелось :-(