$_ = "joe,is,at,home";
my @pos;
push @pos, pos()-1 while /,/g;
print "@pos\n";