在使用foreach的时候遇到的问题？

hejin

代码如下：
foreach a line {
puts $a
}
line的内容为 soc  (soc, .a  (b)  .c  .d)
我发现输出的内容不是按空格为间隔来输出的，比如.a 可能会输出多次

请问这是什么原因？
如何处理可以使它按空格为间隔输出，也就是输出结果为
：soc    (soc,   .a   (b)  .c  .d)