while( defined($_ = <>) && $_ ne "quit\n" ) {}

##</code><code>##

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

while (defined($_ = <ARGV>)) {
    ();
}