>perl -Mstrict -we "my $s = q[ABCDFEFFAA]; print index($s, $1), qq[\n] if $s =~ /(AA)/;"
8