Select Code to Download

#!/usr/bin/perl -w
use strict;
...
TTTCCCGGGAAAA
>sample_3_x112
GGCCCCTTTGAGG

while (<DATA>)
{
...
      print;
   }
}