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

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