my $allow=join '|', qw/AA AG GC GT CA CG TT TC/;
my $disallow=join '|', qw/AC AT GG GA CC CT TG TA/;
# ...
my @chunks=/(?:$allow).*?(?=$disallow)/g;