use warnings;
use strict;

my $line = "CCCC--CCCC--CCC(--CC(O";
my $string = quotemeta "CCC(";
if ($line =~ m/$string/) {print "match";}
[download]