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