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

##</code><code>##

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