# HG changeset patch
# User indvdum
# Date 1308668062 -14400
# Node ID 37eab168f50c6d3beb4bd403b854d32ebb350c1f
# Parent  7712f74efd6eb9e44403e2997cd2d2466ce575e1
 *

diff -r 7712f74efd6e -r 37eab168f50c email-filter.pl
--- a/email-filter.pl	Tue Jun 21 02:28:42 2011 +0400
+++ b/email-filter.pl	Tue Jun 21 18:54:22 2011 +0400
@@ -87,8 +87,11 @@
 
 # Обработка файла
 sub processFile {
-	print "fileName = $fileName\n";
-	print "isRemoveDuplicates = $isRemoveDuplicates\n";
-	print "isSplitByDomens = $isSplitByDomens\n";
-	print "excludeDomen = $excludeDomen\n";
+	open FILE, $fileName or die "Failed to open $fileName: $!\n";
+	my @emails;
+	while(<FILE>){
+		my (@test) = $_ =~ /.*(\w@\w\.\w)*.*/;
+		print @test; 
+	}
+	close FILE;
 }
\ No newline at end of file