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

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