Help for this page

Select Code to Download

Select or download this

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

Select or download this

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