In your question, are you using '#' as wildcards? Does that mean that c, t, and d will always be present in a suitable match? Will there always be whitespace on either side of a suitable capture? If so:

if( $_ =~ m/\s(c\d+t\d+d\d+)\s/ ) {
    print $1;
}
[download]