my $dna;
{
  local $/ = "\n>";
  $dna = <DATA>;
  $dna =~ s/^>//;
  while (<DATA>) {
    chomp;
    $dna .= $_;
  }
}
chomp $dna;