Select Code to Download

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

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