如何在文本中出现的第一个+之后在perl中插入换行符

Question

例如

*aabc aacb  aavg +gf avb avb abf

应该是

*aabc aacb  aavg 
+gf avb avb abf

由于

Answer 1

使用替换：

my $text =  '*aabc aacb  aavg +gf avb avb abf';
$text    =~ s/\+/\n+/;
print $text;

必须对

+进行反击才能失去其特殊含义，\n是换行符。

Answer 2

my $str = "*aabc aacb  aavg +gf avb avb abf";
$str =~ s/\+/\n\+/;
print $str;

Answer 3

> echo "abcd +gkj +bcd" | perl -pe 's/\+/\n\+/'
abcd 
+gkj +bcd