while (my $line = <$fh>) {
    chomp $line;
    foreach my $mot (keys (%count)) {
    chomp $mot;        
    foreach my $str ($line =~ /$mot/g) {
        $count{$str}++;
    }
    }    
}

##</code><code>##

while (my $line = <$fh>)
{
    chomp $line;

    my @words = split /\W+/, $line;

    for my $word (@words)
    {
        ++$count{$word} if exists $count{$word};
    }
}