#! /usr/bin/perl

while(<DATA>) {
   my @field = split " ", $_;
   print "Field 2 => ",$field[1], "\n";
}
__DATA__
ID   SP96_DICDI     STANDARD;      PRT;   600 AA.

##</code><code>##

C:\scripts>perl field_split.pl
Field 2 => SP96_DICDI