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

##</code><code>##

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