今度はPythonで書いてみた。
Perlなら文字列に文字列を含む個数を一発で数えるとかできるかもと思ったんだけどないっぽい。
Pythonは便利だけど、インクリメントが出来ないのが残念。
str = raw_input()
joi = 0
ioi = 0
for i in xrange(len(str)):
if(str.startswith('JOI', i)): joi = joi + 1
if(str.startswith('IOI', i)): ioi = ioi + 1
print joi
print ioi