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