Select Code to Download

#!/usr/bin/perl
# usage: ./generate_ACGT_01.pl
...
  }
}
# eof

#!/usr/bin/perl
# usage: | test_ACGT_01.pl
...
  print "$_ ". (/^$side,$side$/ ? 'Y' : 'N') . $/;
}
# eof

$ ./generate_ACGT_01.pl > y
$ cat y | ./test_ACGT_01.pl > x
$ less x