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