You can set $/

$SIG{ALRM} = sub{die "timeout"};
eval{
  alarm($timeout);
  local $/ = "~";
  $line_in = <$socket>;
  alarm(0);
};
[download]

Now calling <$socket> will only read up to the first ~ character (or EOF).

blokhead