Re^2: Tri state string compare?

[mr_ron]

Just a variant that takes the rules of the original question a little more literally and strictly ...

use strict;
use warnings;
my $abc = "AABCBAABCCCCAB";
my $ab  = "AABABAABABABAB";
$abc =~ s/C/[AB]/g;
$abc = qr/^$abc$/;
print "They match!\n" if $ab =~ $abc;