use File::Find;

sub wanted
{
  local *F;
  if( $_ =~ /\.html?$/)
  {
     my $name = $File::Find::name;
     open ( F, $name ) or die "$!: $name\n";
     while($line = <F>)
     {
      if($line =~ /\.(?:company?|aa\.company|bb\.company)\.com$/i)
    
        {
           print "FILE = $_   email = $1\n";
        }
     }
     close F;
    }
}
find( \&wanted, "/dirpath/here" );