Help for this page
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