各位版大好
小弟有段時間沒碰perl，最近作一個字串處理，要將每個字
第一個空白取代為tab(\t)
ex：
"紙盒 5x10x1" -> "紙盒 5x10x1"
我寫的程式如下

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

1樓版友，感謝你，ok了。