while (($_ = <STDIN>) ne '0') { ... }
    while (<STDIN>) { last unless $_; ... }