perl -wle'
$c = 0;
$a = $b = 1;
print "true" if ($a and $b) or $c++;
print $c'
true
0