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

##</code><code>##

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

##</code><code>##

my $BKSIC_MODEL[$i] = substr ($line, 3, 7);
$BKSIC_MODEL[$i] =~ s/^\s+//;
$BKSIC_MODEL[$i] =~ s/\s+$//;