$test = $comment = 1;
($a = 3 and print "--> $a\n") if ($comment or $test) or print "no way!\n";