Select Code to Download

use Modern::Perl '2014';
use Algorithm::Permute;

...
        say $test=~ /$regex/ ? 'Accept' : 'Reject';
    }
}

Testing
A    Accept
C    Accept
...
CAGA    Reject
ACGA    Reject
(...)