title: TCL Program that Compare String
body: <p>I'm trying to create a program that the First and last characters are compared,  Second and second to the last are compared,  Third and third to the last are compared, and so on, and if any of these characters match, the two will be converted to the uppercase of that character.</p>
  
  <p>Example:</p>
  
  <p>Please enter a text: Hello Philippines
  finals: HEllo PhIlippinEs</p>
  
  <p>I can't create any piece of code, I'm stuck with </p>
  
  <pre><code>puts "Please enter text:"
  set myText [gets stdin]
  
  string index $myText 4 
  </code></pre>
  
  <p>Can someone help me please?</p>