if (<STDIN>) { print; } # WRONG, prints old value of $_
if ($_ = <STDIN>) { print; } # okay