> perl -MO=Deparse -e 'while($x++ < 10){}'
while ($x++ < 10) {
    ();
}

##</code><code>##

for(;$x++ < 10;){}

##</code><code>##

> perl -MO=Deparse -e 'for(;();){}'
while (()) {
    ();
}

##</code><code>##

> perl -MO=Deparse -e 'for($x;$y;$z){()}'
for ($x; $y; $z) {
    ();
}

##</code><code>##

{
    $x; 
    while($y) {
        ();
    } 
    continue {
        $z;
    }
}