while (<SEQS>) {
  chomp;
  if (/\>\s*(.+)$/) {
    if ($seq_name ne '') {
      $seqs=~ s/\s//g;
      $seqs_hash{$seq_name} = $seqs;
      $seqs='';
    }
    $seq_name = $1;
  } else {
    $seqs .= $_;
  }
}

$seqs=~ s/\s//g;
$seqs_hash{$seq_name} = $seqs if ($seq_name ne '');