print while (($_ = ) ne "quit\n");