use strict;

if ($line =~ /TC/g) {
  my $lookfor = "TC";
}
else {
  my $lookfor = "26 ";                
}
print $lookfor;