Help for this page

Select Code to Download

Select or download this
@sections = split /\n\n/, join("", @infile);

Select or download this

open(IN,"./$file");
{
...
   chomp(@sections = <IN>);
}
close(IN);