@sections = split /\n\n/, join("", @infile);


##</code><code>##

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