#!/usr/bin/perl
use warnings;
use strict;

open DOMAINLIST, '<', 'domainlist' or die "Cannot open 'domainlist' because: $!";
chomp( my @list = <DOMAINLIST> );
close DOMAINLIST;

open RESULT, '<', 'result' or die "Cannot open 'result' because: $!";

while ( my $line = <RESULT> ) {
    for my $domain ( @list ) {
        ++$count while $line =~ /$domain/g;
        }
    }

close RESULT;
print "$count\n";