...
local $/=';';
while (defined($buf=$sock->getline)) {
   # parse $buf here
}
...