$ perl -MO=Deparse -e'while (<INPUT>) {}'
while (defined($_ = <INPUT>)) {
    ();
}
-e syntax OK