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