Select Code to Download

EXPR while EXPR;

EXPR while ( EXPR );

>perl -MO=Deparse -e"while() { print 1 }"
while (1) {
...
>perl -MO=Deparse -e"print 1 while;"
syntax error at -e line 1, at EOF
-e had compilation errors.