while(<IN>)
  {
      my $tmp = substr($_, 259, 1);
  
      if($tmp eq "B")
      {
          print B $_;
      }
      else if ($tmp eq "T")
      {
          print T $_;
      }
      else if ()
      {
          # and so on for at least 10 lines!...
      }
  }