my $access_num=-99;

#several other lines betweeen here, omitted for brevity;

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