$sock->input_record_separator(chr(3));
while (<$sock>) {
  ... # $_ contains one complete message
}