here you can do this in multiple ways

1.regsub 30 $data 40 a

puts $a

this will give you the replaced string

2.string replace $data 3 4 40

this also will give you the replaced value