Help for this page

Select Code to Download

Select or download this

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