各位版大好
小弟有段时间没碰perl，最近作一个字串处理，要将每个字
第一个空白取代为tab(\t)
ex：
"纸盒 5x10x1" -> "纸盒 5x10x1"
我写的程式如下

$row =~ s/^(\S+)\s+/$1\t/;

1楼版友，感谢你，ok了。