my @possibilities = expand_string("A[CT]A[CT]", sub {
  split //, $_;
});