print "fileName = $fileName\n";

 	open FILE, $fileName or die "Failed to open $fileName: $!\n";

 	print "isRemoveDuplicates = $isRemoveDuplicates\n";

 	my @emails;

 	print "isSplitByDomens = $isSplitByDomens\n";

 	while(<FILE>){

 	print "excludeDomen = $excludeDomen\n";

 		my (@test) = $_ =~ /.*(\w@\w\.\w)*.*/;

 		print @test; 

 	}

 	close FILE;