in reply to while() {}

This is intentional, and dates back to Perl 1. See Larry's comments in http://rt.perl.org/rt3/Public/Bug/Display.html?id=1811.