@resp = <$s>; # expect one line response

##</code><code>##

@resp = ();
while (defined $_ = <$s> and ! /^\s*$/) {
    warn "DEBUG: Got >$_<";
    push @resp, $_;
};