$s="a (b) c";
$_=$s;

# alles zwischen \Q und \E wird als String gewertet, allerdings werden Variablen interpoliert
if ( /\Q$s\E/ ) {
    print "Found it!\n";
} else {
    print "Not found\n";
}