#!/usr/bin/perl -w
chdir "<directory>"; 
my @excludelist;
my $excludefile = "<directory>/exclude"; 
my $count;
while (1) {
 if ( -s $excludefile ) {
  open (EXCLUDE,"$excludefile");
  @excludelist = <EXCLUDE>;
  close (EXCLUDE);
 }
 undef $/;
 @ARGV = <di*>;
 while (<>) {
  next if (grep /\b$ARGV\b/ , @excludelist);
  $count = s/\0{30}\t\0\0\(\0//g;
  rename $ARGV,"../capture/nested/$ARGV" if ($count >= 10); 
 }
 $/ = "\n";
 @excludelist = ();
 sleep 3;
}