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;