If you only need the final state. This code returns 'yes' only if there is an 'A' in the string and there is no 'B' after it.

use warnings;
use strict;
my $string="A111B111A111B111";
my $yes_or_no= ($string =~ m/A[^B]*$/) ? 'yes' : 'no';
print "yes_or_no=$yes_or_no\n";
[download]

Update: The original description is not quite accurate. It should read "This code returns 'yes' only if there is at least one 'A' in the string and there is no 'B' after the final 'A'."