my $str = 'A{C,T}A{C,T}';
print "$_\n" for glob $str;