#! /usr/bin/perl

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