perl正则表达式来分隔文本中的每个字母

Question

如何使用perl正则表达式转换以下文本:

1100101
1100111
1110001
1110101

成

1 1 0 0 1 0 1
1 1 0 0 1 1 1
1 1 1 0 0 0 1
1 1 1 0 1 0 1

我试过用

perl -pe 's// /g' < text.txt

但它给了我一些有趣的结果:

 1 1 0 0 1 0 1
  1 1 0 0 1 1 1
  1 1 1 0 0 0 1
  1 1 1 0 1 0 1

Answer 1

perl -pe 's/(?<=[^\n])([^\n])/ \1/g'

Answer 2

为什么要使用正则表达式？

perl -pe '$_ = join " ", split ""'