open (LSHAL, .....) or die;
{ # Block
  local $/ = "irgendwas";
  while (<LSHAL>) {
    ...
  } # while
} # Block
close (LSHAL);