$result{$string} =()= ($seq{$key} =~ /$string/ig);