wolverian@noesis:~$ perl -MO=Deparse -e'while (my $foo = <DATA>) { }'
while (defined(my $foo = <DATA>)) {
    ();
}
__DATA__
-e syntax OK