Starting first character at '1'.

$_ = q(joe,is,at,home,and,going,to,market,);
while(/\,/g){
    print pos()," ";
}
[download]

Answer:

4 7 10 15 19 25 28 35

artist