#!/usr/bin/perl
@folder = <*>;
foreach $folder (@folder) {
  if (-d $folder) {opendir (DH, "$folder") or warn "can't open directory $folder for read\n";
  foreach $file (readdir DH) {
    if(!(-d $file)){print"$folder/$file\n";open(READ,"+<$folder/$file") or die "can't open";
      while (<READ>){((s/Manual_common_macros/test_macros/ge)||(s/Manual_constants/test_constants/ge))&&(print READ $_)&&(print)&&($|=1);}
      }
      close(READ);
    }
  }
  closedir(DH);
}
exit;