my $a = 1;
$a++ and print $a;

##</code><code>##

perl -MO=Deparse -e '$a++ and print $a'
print $a if $a++;
-e syntax OK