Select Code to Download

my @lst = qw( A,G AG,CT TC,CA GAT,CGA CGAT,TG ,G
  ACGT X,A AA,G AC,GGC ATGA,TGG ATCXG,AAC ATA,TG GTA,YC);
...
    };
    print $_, $good ? ' good' : ' bad', "\n";
}

A,G good
AG,CT good
...
ATCXG,AAC bad
ATA,TG bad
GTA,YC bad