$text =~ s{regexp}{
 no strict 'refs';
 my $i = 1;
 while (defined ${$i}) {
   ...
 }
 ...
}ge;