Help for this page

Select Code to Download

Select or download this

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

Select or download this

{
  local $/ = ".ENDS\n";
...
    # ...
  }
}