Help for this page
if ( EXPR ) BLOCK
do { ( EXPR ) and do BLOCK };
$ perl -MO=Concise,-exec -e'if (f()) { g() }' 1 <0> enter ... 9 <1> entersub[t6] vKS/TARG,1 a <@> leave[1 ref] vKP/REFC -e syntax OK