$ perl -le'"aaaaac" =~ /[aA](?{ print pos })[bB]/'
1
2
3
4
5