perl -MO=Deparse -e "for (;<>;){print}"
while (defined($_ = <ARGV>)) {
    print $_;
}
-e syntax OK

perl -MO=Deparse -e "for (;$i<100; $i++) {print $i}"
for (; $i < 100; ++$i) {
    print $i;
}
-e syntax OK

perl -MO=Deparse -e "while ($i < 100){print $i}continue {$i++}"
while ($i < 100) {
    print $i;
}
continue {
    ++$i;
}
-e syntax OK