Code:
#!/usr/bin/perl -w
use strict;
my @files = split /\n/, `find files -type f`;
for (@files) {
  open (FILE, $_);
  while (my $data = ) {
   chomp($data);
   if (my($name,$domen,$pass) = ($data) =~ /(\w+)\@([\w|\.]+)[:|;]{1}(\w+)/g) {
    $domen = "\L$domen";  
    open (EM, ">> good\/$domen\.txt") or print "Cent open file $!\n";
    print EM $name.'@'.$domen.';'.$pass."\n";
    close (EM);
    print $name.'@'.$domen.';'.$pass."\n";
   }
  }
}