Select Code to Download

use strict;
use warnings;
...
$abc =~ tr/AB/\0/c;

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

AABABAABABABAB: yes
ABBABAABABABAB: no
ABBABAABABAB: no