Help for this page

Select Code to Download

Select or download this

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

Select or download this

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