C:>perl
use warnings;
use strict;
$_ = "(abc)";
my $var = "(ab";
print if /\Q$var\E/;
^D
(abc)