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