if ($B1=~ m/^*/ | $B2=~ m/^*/) {
       my $type;
       $type eq "S";
     } else {
       $type eq "I";
     }