%known_files = map { my($k,$v)=split(/=/) } <LINKS>;

##</code><code>##

     foreach (keys %known_files)
     {
          if(/announcements|links|news|info/i)
          {
                $top_level{$_} = $known_files{$_};
          }
     }

##</code><code>##

     sub middle
     {
          print @lines;
     }