($n,$m)=glob<>; @s=<>; for$i(0..$m-1){ $x=1; for$s(@s){ if(substr($s,$i,1)eq"x"){ ++$x; } } if($r<$x){ $r=$x; } } print$r;