if ($line =~ s/^\s*ACCESSION\s*NUMBER:\s*([-\d]+)$/m) {
    $access_num = $1; 
    $access_num =~ tr/-//;
}