$ perl -MO=Deparse -e'(push @badVals, $val) && next if isBad($val);' push @badVals, $val and next if isBad($val); -e syntax OK $ perl -MO=Deparse,-p -e'push @badVals, $val && next if isBad($val);' (isBad($val) and push(@badVals, ($val && next))); -e syntax OK