> perl -MO=Deparse -e"for(;;){}"
for (;;) {
    ();
}
-e syntax OK

> perl -MO=Deparse -e"while(1){}"
for (;;) {
    ();
}
-e syntax OK

> perl -MO=Deparse -e"for(1){}"
foreach $_ (1) {
    ();
}
-e syntax OK

>