在每行的开头添加空格数(在一个字符串内)

Question

情况
在现有的Perl脚本中,我有一个合理的长字符串,$str其中包含未知数量的换行符(\n).现在在字符串的末尾有换行符.

$str = "Hello\nWorld.\nHow is it going?"

问题
我想在字符串中每行的开头添加一定数量的(常量)空格:(在本例中为3)

$str = "   Hello\n   World.\n   How is it going?"

第一种方法 我的第一种方法是以下RegEx

$str =~ s/(.*?\n)/   \1/g;

并缓存最后一行,它不是由新行终止的

$str =~ s/(.*)\n(.*)?$/\1\n   \2/g;

愿望
第一.以上几行完美无缺,完全符合我的意图.但.我知道,RegEx是强大的,因此我很确定,只需一个简短的RegEx就可以做同样的事情.不幸的是,我还没有实现这一目标.(这很有可能,我认为太复杂了.)

那么,人们对这个问题有什么可能性呢？
谢谢你的回答.

Answer 1

改为匹配每一行的开头,或许:

$str =~ s/^/   /mg;