while(<>){
  if ($_ =~ /^TL:/){
    $_ =~ tr/a-z/A-Z/;
  }
  print $_;
}