Help for this page

Select Code to Download

Select or download this

@Name 
AGCATATA...whatever nucleotide sequence
+
KKKKKKKK...quality score

Select or download this

For (<INFILE>) {
   if (/^@(\S+)/) {
...
      my $seq = <INFILE>;
   }
}