$ perl -MO=Deparse -e 'while() { print "1\n" }'
while (1) {
    print "1\n";
}
-e syntax OK

##</code><code>##

$ perl -MO=Deparse -e 'print "1\n" while ()'
print "1\n" while ();
-e syntax OK