Select Code to Download

if ($string =~ /DEFINITION\s\s([\w\s]+)ACCESSION/s){
    print "$1\n";
}

$string =~ /DEFINITION\s\s(.*?)ACCESSION/s