请教:substring在string中的重复次数

请教:substring在string中的重复次数
in.txt为:
I,IIII
me,meme
we,wewewewewe
you,youyouyou
hi,hihi
awe,aweaweawe
期望out.txt为:
type repeat count
1,4,1
2,2,2
2,5,1
3,3,2

以me,meme这一行为例说明:me为substring,meme为string;
type等于length(substring),
repeat等于substring在string中的重复次数,
type与repeat都相等的合并,并计数count.

哪位大侠指点一下?代码说话最佳.

chaoslawful牛就一个字!
[color=red]这样简短而又舒服的代码也能写出来,只能说明两个问题,一是perl文本处理之强,二是chaoslawfu编程功夫之牛!呵呵,如沐春风啊!严重向您学习![/color]

总算读明白了，...
总算读明白了，真的很强！