% perl -MO=Deparse -e"while() { print }"
while (1) {
    print $_;
}
-e syntax OK
 % diff <(perl -MO=Concise -e'while($x){print}') \
        <(perl -MO=Concise -e'for(;$x;){print}')
 %