Well then...

do { $test = 2 > 1; print 'foo' if $test; $test; }
&& $index++;
[download]

...but that is just oogly.