if ($TET1 eq '*') {$TET1 = 'T';}
  if ($TET2 eq '*') { $TET2 = 'T';}
  if ($TET3 eq '*') { $TET3 = 'T';}
  if ($TET4 eq '*') { $TET4 = 'T';}