if ($line =~ s/^\s*ACCESSION\s*NUMBER:\s*/) {
    $line =~ tr/-//;
}