Select Code to Download

$i++ if $some_condition;
#or
push @a, 'fred' while @a < 10;

$j--
, $i++ if $some_condition;
#or
print scalar @a
, push @a, 'fred' while @a < 10;