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

##</code><code>##

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