anyname@company.com
anynamehere@aa.company.com
anynameagain@bb.company.com


##</code><code>##

use File::Find;
sub wanted
{
   if( $_ =~ /\.html?$/)
   {
       my $name = $File::Find::name;
       open ( F, $name ) or die "$!: $name\n";
           while($line = <F>)
             {
             if($line =~ /\.(?:company?|aa\.company|bb\.company)$/)
             {
                 $ct++;
                 print "Email = $1\n";
             }
             }
   close F;
   }
}
find( \&wanted, "/web/dir/" );