It's not possible to do in a s/// using the method you requested. If it was, the following would print a series of 'a's

>perl -le"$|=1; ($_='abc') =~ s/\G(.)/print(pos(),' ',$1); pos()=0/eg"
0 a
1 b
2 c
[download]