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