use strict;
use re 'debug';
my $string = 'abcdC';
print "Matched: $1\n" if $string =~ /((?<!b)[cC])/;