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";