/ACATGT|GCATGC/

##</code><code>##

our %map = ( A => 'T', C  => 'C' );
/([AC])CATC(??{$map{$1})/