my $s = "ABCDFEFFAA";
$s =~ m/AA/;
say "$-[0] $+[0]";
__END__
8 10