in reply to regex problem

One way to escape the parentheses is to use \Q
use warnings; use strict; while (<DATA>) { print if /\QCOPYRIGHT(C)/ } __DATA__ foo COPYRIGHT(C) bar COPYRIGHT

prints:

foo COPYRIGHT(C)

See also quotemeta