my $pattern = "ABC()DEF";

my $string = "ABC()DEF";

if ($string =~ /\Q$pattern\E/) { print "match 1\n" }
if ($string =~ /$pattern/) { print "match 2\n" }