my $buffer = <$sock>;
while ($buffer !~ /GO AHEAD\Z/) {
    $buffer .= <$sock>;
}