#/usr/bin/perl -w
my $math='(([_a-z0-9\-]+)*@([_a-z0-9\-]+\.)+([a-z]{2,}|aero|arpa|biz|com|coop|edu|gov|info|int|jobs|mil|museum|name|nato|net|org|pro|travel))'; # составляет список мыл
#my $math='password.+:(.+)'; #выбирает пассы для словаря
my $dir='Directory';

open LOG,">Log";
opendir (FDIR,$dir)|| die print "no dir";
my @pass;
while($name = readdir(FDIR)){
  $nam="Directory\\$name";
  open FIL,"$nam";
  my @lst=<FIL>;
  close FIL;
     foreach $item (@lst) {
       if ($item =~m/$math/g) {
       push(@pass,"$1\n");
      } #if
   } #for
 }  #while
#foreach $item (@pass){print LOG $item;}  }

my @mass=sort @pass;
for (my $i=0;$i<=$#mass;$i++){
  if (not($mass[$i] eq $mass[$i+1])){print LOG $mass[$i]}
} #for

closedir FDIR;
close LOG;