Help for this page
my $a = 1; $a++ and print $a;
perl -MO=Deparse -e '$a++ and print $a' print $a if $a++; -e syntax OK