如何匹配出字符在文章里匹配次数最高的地方啊

$varchar='德国和丹麦都在第一场比赛1-0获胜，在次轮比赛中，德国2-1击败荷兰，两场小组赛战罢，德国队虽然拿到了6分，但依然未能保证出线，最后一场如果输给丹麦仍然有出局可能。丹麦上一场在0-2落后的情况下连追两球，但最后还是2-3输给葡萄牙，将小组次席拱手让给葡萄牙。丹麦想要出线必须力争击败德国，好在他们也不缺乏击败德国的感觉。在两队最近3场交手中，丹麦令人吃惊地2胜1平占据上风，最近一次交手是在2010年8月，丹麦在落后两球情况下扳平比分。两队上一次在欧洲杯交手则是1992年欧洲杯决赛，当时正是丹麦童话的巅峰，北欧人2-0击败德国夺冠。在德国队前两场比赛中，戈麦斯成为最大的亮点。超级马里奥连续两场比赛包揽了德国3粒进球，恐怖的是他进3球居然只花了6脚射门。戈麦斯目前以3球排名射手榜首位，自从1976年欧洲杯穆勒单届射进4球以来，德国队此后36年还没有任何球员欧洲杯单届进球超过3个。左边锋波多尔斯基在此前两场小组赛均打满全场，国家队出场次数达到99场，本场有望实现百场。双方都没有对首发阵容进行大的调整，德国队只是因为博阿滕停赛而派上了本德，丹麦也只换上鲍尔森，队内元老罗梅达尔因伤缺席。本场德国前锋波多尔斯基迎来国家队第100场比赛，小将本德则是首次在国家队首发。第2分钟，赫迪拉禁区前沿左侧传中，中路无人拿到皮球，后点穆勒胸部停球后左脚抽射稍稍高出。第5分钟，丹麦左侧角球，本特纳远点头球攻门被诺伊尔拿到。1分钟后，德国迅速反击，厄齐尔左侧直塞，波多尔斯基传中，克亚尔解围不力，穆勒门前3米处射门被安德森神奇化解。第12分钟，戈麦斯禁区外围左脚远射高出。';$ar = preg_split('/(德国|丹麦)/', $varchar, -1, PREG_SPLIT_NO_EMPTY | PREG_SPLIT_DELIM_CAPTURE | PREG_SPLIT_OFFSET_CAPTURE);print_r($ar);

for($j=0; $j<count($ar)-1; $j++) {  $t = $ar[$j][1];  $r[$t] = 0;  for($i=$j; $i<count($ar); $i++) {    if($ar[$i][0] == '德国' || $ar[$i][0] == '丹麦') {      if($ar[$i][1]+strlen($ar[$i][0]) - $t < 180) $r[$t]++;      else $r[$t=$ar[$i][1]] = 0;    }  }}arsort($r);print_r($r);
------解决方案--------------------
1，扫一遍找出所有的关键字。
2，再扫一遍，计算出每个end_index位置之前的关键字总数，同时计算180个字符之前的beg_index位置的关键字个数差值。
3，对关键字差值最大的180长度的段，strrstr,strstr分别头尾找到一个关键字，把多余的部分切掉，这样可以让字符再少一点。