($BKSIC_MODEL[$i] = substr ($line, 3, 7)) =~ s/^\s*(\S*)\s*$/$1/;