;# your code goes here
set theString "I am You a string sds"
if {[regexp -- {string$} $theString]} {
puts "Ends with 'string'"
}
if {![regexp -- {You} $theString]} {
puts "Does not start with 'You'"
}
OyMgeW91ciBjb2RlIGdvZXMgaGVyZQpzZXQgdGhlU3RyaW5nICJJIGFtIFlvdSBhIHN0cmluZyBzZHMiCmlmIHtbcmVnZXhwIC0tIHtzdHJpbmckfSAkdGhlU3RyaW5nXX0gewogICAgcHV0cyAiRW5kcyB3aXRoICdzdHJpbmcnIgp9CiAKaWYgeyFbcmVnZXhwIC0tIHtZb3V9ICR0aGVTdHJpbmddfSB7CiAgICBwdXRzICJEb2VzIG5vdCBzdGFydCB3aXRoICdZb3UnIgp9