Select Code to Download

use strict;
use warnings;
...
my $ab  = "AABABAABABABAB";
$abc =~ s/[^ab]/./gi;
print "They match!\n" if $ab =~ /^$abc$/i;

print "They match!\n" unless ($abc ^ $ab) =~ /\x{3}/;