a% perl -MO=Deparse -e 'while (my $line = <DATA>) {}'  
while (defined(my $line = <DATA>)) {
    ();
}
__DATA__
-e syntax OK