my $pattern = qr/AB/;