#! /usr/bin/perl

use strict;

my $string = "LOCUS SOY4KDPP 545 bp  PLN 01-FEB-2000
DEFINITION  BIO5 gene complete cds EC=1.7.7.1.
ACCESSION   D17396
VERSION     D17396.1  GI:498167
KEYWORDS    protein; insulin-like protein;
            leginsulin.
//";

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

exit;