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