Select Code to Download

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

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

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

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

{
    $x; 
...
        $z;
    }
}