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