sub a { 
  my $i = 0; 
  # note that the regex is compiled only once
  () = shift =~ /a(?{print $i++})/g;
} 
a("ababa"); # prints 0 1 2
a("ajaja"); # prints 3 4 5