my $nextline = <FASTA>;
      redo if $nextline !~ /^\S+$/;

      $nextline = <FASTA>;
      redo if $nextline !~ /^\+/;

      $nextline = <FASTA>;
      redo if $nextline !~ /^\S+$/;

      chomp( my $qual = $nextline );