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

##</code><code>##

     my $type = $B1 =~ /^\*/ || $B2 =~ /^\*/ ? "S" : "I";

##</code><code>##

     my $type = grep(/^\*/, $B1, $B2) ? "S" : "I";