while (defined($_ = <>) and $_ ne "quit\n") {
    ...