Select Code to Download

my @cnt = qw(A2G G2A C2T T2C A2T A2C G2T G2C ...);

#!/usr/bin/perl -w
use strict;
...

__END__
A2C=1; A2G=1; A2T=1; C2A=1; C2G=1; C2T=1; G2A=1; G2C=1; G2T=1; T2A=1; 
+T2C=1; T2G=1.