>>273
set line {He said "I am}
foreach word [string map {\" \\"} $line] {
puts $word
}