#!/usr/bin/perl   
my $dirname = "/eng/png/home/awhf/document";    
chdir ($dirname) || die "can't chdir to $dirname: $!";    
opendir(DIR, $dirname) || die "can't open directory: $!";   
my @files = grep {/\.doc$/} readdir DIR;   
close DIR;   
open(OUT, ">>/eng/png/home/awhf/result") || die "can't open: $!";   
while (<@files>)   
{   
   s/\s*(\w+).*/$1/;   
   if (/^::start/../^end/)   
   {   
      print OUT;   
   }   
}   
close OUT