{
  local $/ = ".ENDS\n";
  while (<SCH>){
    # ...
  }
}