define b "soal!adasdsda!aAsadadsada!adas!"
define c 

set! c [str-split $b "!"]