#!/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

#!/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: $!"; 
foreach my $file (@files) { 
   open (my $FH, $file) or die "$!"; 
   while (<$FH>)   
   {    
      s/\s*(\w+).*/$1/;    
      if (/^::start/../^end/)    
      {    
         print OUT;    
      }    
   } 
}

  #!/usr/bin/perl        
use strict;        
use warnings;        
my $dirname = "/eng/png/home/awhf/document";        
chdir ($dirname) or die  "Can't chdir to $dirname: $!";        
opendir(DIR, '.') or die "Cannot open directory: $!";        
my @files = grep {/\.cas$/} readdir DIR;        
close DIR;        
  
open (OUT,">>/eng/png/home/awhf/results") or die "Can't open results: $!";        
{        
 local @ARGV = @files;        
   local $/ = undef;       
   while(<>) {    
 if(/::START(.*?)::END/is) {  
 my $match = $1;    
         $match =~ s/(\w+)/$1/gm;  
  print OUT $match;           
      }        
   }     
}     
close OUT;

#!/usr/bin/perl 
my $dir_A = "/eng/home/assignment/dir_A"; 
chdir($dir_A) || die "Can't chdir to $dirname: $!"; 
opendir(DIRA, $dir_A) || die "Can't open directory: $1"; 
my @docfiles = grep{/\.doc$/} readdir DIRA; 
close DIRA; 
@sortdoc = (sort @docfiles);open(FILE, $sortdoc); 
while (<FILE>) 
{ 
   s/(\w+)/$1/; 
   if (/^::start/../^::end/) 
   { 
      push (@array, $1); 
   } 
   @sortdoc = (sort, @array); 
} 
my $dir_B = "/eng/home/assignment/dir_B"; 
chdir($dir_B) || die "Can't chdir to $dirname: $!"; 
opendir(DIRB, $dir_B) || die "Can't open directory: $1"; 
my @txtfilesfast = grep{/\_fast.txt$/} readdir DIRB; 
my @txtfilesslow = grep{/\_slow.txt$/} readdir DIRB; 
close DIRB; 
@sortfiletxtfast = (sort @txtfilesfast); 
  
open (FILE1, $txtfilesfast); 
while ($line1 =<FILE1>) 
{ 
   if($line1 =~/name\((\w+\)/) 
   { 
      push (@array1, $line1); 
   } 
   @sorttxtfast = (sort, @array1); 
}open (FILE2, $txtfilesslow); 
while ($line2 =<FILE2>) 
{ 
   if($line2 =~/name\((\w+\)/) 
   { 
      push (@array2, $line2); 
   } 
   @sorttxtslow = (sort, @array2); 
}