如何在文本中出现的第一个+之后在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是一个换行符.