in reply to back translating regular expressions
my $str = 'A{C,T}A{C,T}'; print "$_\n" for glob $str; [download]
glob is great for the simpler regex expansions. I'm not sure how many regex features you need...You'll probably hit the wall somewhere before zero-width (posi|nega)tive look-(ahead|behind)s.
-QM -- Quantum Mechanics: The dreams stuff is made of