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

if ( $_ eq $s) {
    print "Found it!\n";
} else {
    print "Not found\n";
}