$> perl -e '$pos = 0;print ($pos . " ") 
while(($pos = index("joe,is,at,home", ",", $pos+1)) != -1);'
3 6 9