my $lookfor = ($line =~ /TC/g) ? 'TC' : 26;
  print $lookfor;