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