Unrelated to the regexes, this:

  if ($TET1 = '*') {$TET1 = 'T';}
  if ($TET2 = '*') { $TET2 = 'T';}
  if ($TET3 = '*') { $TET3 = 'T';}
  if ($TET4 = '*') { $TET4 = 'T';}
[download]

probably isn't doing what you want it to do. Try

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

instead. A single = is an assignment, not a comparison. For a numerical comparison you should use ==, and for string comparison, as above, it's eq