use strict;
use re 'debug';

my $test = "123avc 8c7d45";
$test =~ /(c[^c]+d)/;
print $1;