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