Maybe something like this, which builds up an array of the offsets where a comma is found:

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

-- Mike

--
just,my${.02}