Just set a variable once and only once with the position the first time it matches.

 perl -e '$shoo=q!my name is prince!; while($shoo=~m/i/g){$rx = $+[0] 
+unless $rx } print $rx;
[download]

9
[download]

But like Grandfather said, read perlvar.