perl兼用正则表的式能根据匹配的字符串长度替换吗？

[ztf]

var1 in varchar2 ;--变量1
var111111 in varchar2 ;--变量1

通过一个正则替换变成

每行中的3部分:
“var1”，”in varchar2“，“；--变量1”

分别与下一行的3部分左对齐。

[eexpress]

啥差别

[ztf]

楼上，抱歉了。由于编辑模式格式和世界效果有差别，没看出想表达的效果。改用文字描述。

[eexpress]

● cat tmp|sed 's/\([0-9]\s\)/\1\t/g'
var1 in varchar2 ;--变量1
var111111 in varchar2 ;--变量1

\t不能保证对齐的。
如果是perl
可以 ($n1,$n2,$n3)=split '\s' 这样试试。似乎要先s/(\d)\s*/$1●/g。预处理下。