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

##</code><code>##

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