my $pattern = qr//;
$_ = 'foo';

/\A \Q$pattern\E \z/x and print "Matched\n";