Select Code to Download

#! perl -sw
use strict;
...

## outputs to TTGT.fastQ GGTT.fastQ ACCT.fastQ
## Unrecognised records are put into "other.fastQ"