#!/usr/bin/perl
use strict;
my($g,@a,@b,$all,$f);
$g = "*.*";
@a = glob($g);
$all = 0;
open mail,'>mails.txt';
foreach $f (@a)
 {
   open file, $f;
   while(<file>)
    {
	  if ( $_ =~ /(\w+@\w+[^\.]\.\w{2,10})/ )  { unshift (@b,$1."\n"); $all++ } ;
    }
   close file;
 };
print mail "All:$all\n";
print mail @b;
close mail;