RosettaCodeData/Task/String-comparison/Tcl/string-comparison-3.tcl

if {[string equal -length 3 $x "abc123"]} {
    puts "first three characters are equal"
}