use strict;
use warnings;

my $abc = 'AABCBAABCCCCAB';
my $yes = 'AABABAABABABAB';
my $no1 = 'ABBABAABABABAB';
my $no2 = 'ABBABAABABAB';

$abc =~ tr/AB/\0/c;

print +(($abc & $_) eq $abc) ? "$_: yes\n" : "$_: no\n" for $yes, $no1, $no2;

##</code><code>##

AABABAABABABAB: yes
ABBABAABABABAB: no
ABBABAABABAB: no