while (<$server>) {
    print "got $_";
    chomp;
    # ...do some more stuff...
}