my $re = do { qr/^\*.{36};(@{[join ("|", map { quotemeta } @a)]});/ };
die "not a regex!" unless ref($re) eq "Regexp";

... $chosen_C !=~ $re ...