my $pattern = "AB";
$pattern = qr/$pattern/;