Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
ATCACCACTTCCTGGACACTACCCTAAACCTTTGAGGA
AATAACCGCTTTGTTGTTGCGATCGCCTAATAAATATC
AGCGTCTTCGTATGATAAACCAATGCGGAAGTACAAAA
  2. or download this
    print$_ for(map{chr($_)}split(/\s+/,join(/\B?:\w+[^\s+]/,<DATA>)));
__DATA__
67 111 100 101 32 80 101 114 108