$a="batcatratdeercatdogmousepalmcocoacatdoll monkeycatsusandollypollycatpomkelly";;

print $-[2] - $+[1] while $a =~ m[(cat)(?=.+?(cat))]g;;
7
17
11
15